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In an industry that evolves practically over- 
night, it’s tough to stay ahead of the crowd. 
You need tools that not only give you an 
edge day-to-day, but open up endless possibilities. 
Tools that can only come from Microsoft. 
Combine Microsoft® C and Macro Assem- 
bler and you've got enough power to create pro- 
grams for MS DOS" Windows and OS/2 systems. 





What's more, you can do it all in record time 
because our renowned CodeView’ Debugger, 
Linker, Microsoft Editor, and MAKE utility work 
ingeniously and seamlessly =| 
together. Microsoft.C 5.1 


PRE RE  oe 
WD 4 wv age 


hd Vath 
% | Payer esses 


In other words, you've 
got the leverage of the most 
inventive and comprehensive 
tools around. 

When you develop un- 
der OS/2 systems, you’ve got ' 
options no one else can touch. 
Like multi-tasking. And blast- 
ing through the 640K barrier. 

In addition, Microsoft 
C and Macro Assembler can 
accommodate more third 
party add-ons than any other 
PC professional languages. 

Maybe that’s why the 
| most popular applications on the market today 
ieee ~=were Ceveloped through the unique power of our 
C and Assembler: Lotus” 1-2-3? WordPerfect* 5.0. 
Microsoft Excel. And Aldus? PageMaker® 

So drop by your nearest Microsoft dealer 
soon. And start turning out the most airtight, fine- 
tuned code ever to touch a disk. 

After all, you've got the leverage. 





® 


Making tt all make sense: 





Customers in the U.S., call (800) 426-9400. In Canada, call (416) 673-7638. Outside North America, call (206) 
882-8661. © Copyright 1989 Microsoft Corporation. All nghts reserved. Microsoft, MS-DOS and the Microsoft 
logo are registered trademarks and Making it all make sense is a trademark of Microsoft Corporation. 





6.0 AND COUNTING: 


NEW FROM 
BLAISE COMPUTING 
¢C TOOLS PLUS/6.0 


Concentrate on fhe creative aspects of development by 
integrating sophisticated features into your Microsoft C 
and QuickC applications with C TOOLS PLUS/6.0™. 


C TOOLS PLUS version 6.0 is filled with many advanced 

routines for developing high-powered C applications, in- 

cluding: virtual, stackable menus and windows with full 
mouse support and optional “drop shadows’; multiple virtual 
pop-up help screens; a miniature multi-line editor for gathering 
user responses in a robust fashion; a single function call which can move, resize, and 
promote a window or menu on top of all others; the ability to update covered windows 
automatically when they are written to; support for EGA, VGA, and MCGA text modes 
including 30-, 43-, and 50-line modes; support for the enhanced (101/102 key) keyboard. 


All this and much more for only $149! C TOOLS PLUS/6.0 also contains functions for writing 
interrupt service routines; creating pop-up Memory resident applications using Interven- 
tion Code™: string translations and conversion; general memory "peeks* and "pokes'; 
access to the DOS PRINT utility; as well as many other general utility functions and macros. 
COMPLETE PROFESSIONAL PACKAGE. Blaise Computing’s function libraries offer easy to use solutions 


to your programming needs. You get source code, complete sample programs, and a comprehen- 
sive reference manual with extensive examples. Supports QuickC and Microsoft C 5.0 and later. 


ONLINE DATABASE. To speed the development process even further, C TOOLS PLUS/6.0 now features 
an online database compatible with the QuickC Advisor containing reference information for all 
C TOOLS PLUS functions. 


30 DAY GUARANTEE. If during the first 30 days you are not completely satisfied, we'll refund your 
money. 


Blaise Computing has produced a collection of tools over the years that are unsurpassed 
for reliability, flexibility and ease of use. Included are such widely acclaimed products as: 
C ASYNCH MANAGER’ $189 


NEW VERSION! This library of functions helps you add asynchronous communications capabilities to your applications programs. 

Version 3.0 has been upgraded with sophisticated modem control routines which reset, query, dial and answer your Hayes 

or compatible modem. Powerful new file transfer routines allow multi-file batch (YMODEM), simultaneous and back- 
ground transfers with your choice of error correction. 


POWER SCREEN $149 


NEW VERSION! A screen management system to help you create sophisticated data input 
applications. For Microsoft C, Turbo C, Turbo Pascal, QuickPascal and QuickBASIC. 


Turbo C TOOLS/2.0 $149 


A complete library of C functions equivalent to those found in C TOOLS 
PLUS/6.0 only carefully crafted to supplement Turbo C. 


POWER SEARCH $149 


NEW! A library of C functions that search for character strings or 
regular expressions in DOS and OS/2 based applications. 


Call (800) 333-8087 today! 
FAX (415) 540-1938 oS 





















BLAISE COMPUTING INC. © 
2560 Ninth Street, Suite 316 Berkeley, CA 94710 (415) 540-544. s—t™” 
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FEATURES 


NETWORK GRAPHS IN OBJECT PASCAL 17 
by Steven Kienle 


Steve discusses Object Pascal, focusing on how the language implements objects and 
methods. In the process, he implements a network graph, using objects that can be reused 
for other applications. 


WRITING FILTERS IN AN OBJECT-ORIENTED LANGUAGE 28 
by Marty Franz 

Filters come in all shapes and sizes, and writing them is easier with an object-oriented 

language. Marty shows you how, using Actor as his environment of choice. 


A HOME BREW C++ PARSER 40 
by John M. Dlugosz 

The first step to designing your own C++ compiler is to build a good parser. Here’s a 

table-driven parser generator John created, it may be the foundation for a system of 

your own. 


WRITING CORRECT SOFTWARE WITH EIFFEL 48 
by Bertrand Meyer 

Eiffel’s been described as the only pure object-oriented language currently around. Bertrand 
developed Eiffel and he discusses how you can use the language to write better software. 


THE QUICKPASCAL IN QUICKPASCAL 64 
by Joseph Moubanna and Michael Vose 

Microsoft used QuickPascal itself to write the QuickPascal user interface. Joseph and Mike 

show you how they did it, and how you can take advantage of some of the same techniques. 





AN OBJECT-ORIENTED LOGIC SIMULATOR 2 FORUM 
by Kenneth E. Ayers 
Ken’s LogicLab system, a simulated bench environment, includes everything from ICs to a EDITORIAL ............. i) 
logic analyzer — and they’re all written in Smalltalk. by Michael Floyd 
ARE THE EMPEROR’S NEW CLOTHES OBJECT ORIENTED? 80 LETTERS ............... 8 
by Scott Guthery by you 
Scott plays the devil’s advocate, asking some tough questions about object-oriented pro- 
gramming while attempting to separate the technological wheat from the marketing chaff. ehpioniant ire sess 176 
FUNCTIONAL PROGRAMMING AND FPCA ’89 96 
by Ronald Fischer PROGRAMMER'’S 
Proponents of the functional programming paradigm get together every couple of years to SERVICES 
examine advances in their craft. They met this year in London, and Ronald was there to — 
report on what happened at the conference, paying particular attention to the Haskell ADVERTISER INDEX ....... 168 
programming language. where to go for more information 
on products 
EXAMINING ROOM OF INTEREST........... 169 
iled b Ci 
PDQ: LESS BAGGAGE, FASTER CODE 88 a aan 
by Bruce Tonkin PROGRAMMER’S 
It’s no secret that smaller code runs faster and, as Bruce found out, Crescent Software’s PDQ MARKETPLACE ......... 170 
really does help QuickBasic code run “pretty darn quick.” classified ads 
PROGRAMMING PARADIGMS 140 
by Michael Swaine 
OOPSLA ’89 was one of this year’s most exciting — and important — conferences. Here is NEXT ISSUE 
Mike’s wrap-up. 7 
Ring in the New Year with us as we ring 
C PROGRAMMING 144 up real-time and embedded systems pro- 
by Al Stevens gramming, 


Al embarks on a new multi-issue project with the development of TEXTSRCH, a document 
retrieval system, while continuing his review of C++ books and his ANSI update. 


STRUCTURED PROGRAMMING 153 
by Jeff Duntemann 

GUI development leads Jeff to Microsoft Windows, which in turn steers him to Actor and 
Smalltalk/V for PM and all of the object-oriented baggage that’s associated with these 

languages. 
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Sometimes It Pays | 


To Re-Invent 
The Wheel 


Essential C-Utility 
Library: 
Redesigned For 
Today’s C- 





Programming Environment 





The Good Old Days 


In the “old” days before we first 
introduced the C-Utility Library, about 
the only thing compiler manufacturers 
provided was a way to turn C code into 
machine language. 


You wrote C programs and developed 
your own “tool-box” of functions. After 
all, that was the idea of C. 


But soon groups of programmers were 
sitting around over a few beers or wine 
coolers (depending on which coast you 
were closest to) “what iffing” or “gee 
whizzing” (depending on which coast 
you were closest to). 


“Gee Whiz, I’m getting tired of writing 
functions and sub-routines for all this 
standard stuff. It’s like re-inventing the 
wheel every day. ‘What if’ I could buy a 


set of toois and just plug them in.” And so, 


the C-tool industry was born. 


The Trickle-Up Theory 


For a time symbiosis was the order of 
the day. Compilers compiled, libraries 
were ‘“‘added-on.” 


But after a while compiler manufactur- 
ers (who tend to hang around one coast) 
sensed a new heat in the competition. In 
an effort to gain market share they 
started to add libraries to their products. 


In response to this move by the 
compiler developers we have redesigned 
Essential C-Utility Library to reflect the 
new age of C programming. 


Out With The Old, In With 
The New 
We have eliminated functions provided 

with most compilers, except where ours 
are demonstrably better. We enhanced 
areas that became more popular as time 
moved on. And finally, we added a new 
class of tools: the ““HyperFunctions.” 


We have kept in many of the work- 
horses of the original C-Utility library 
covering general areas such as: 
Advanced DOS, Keyboard Handling, 
Screen Functions, Mouse Functions, 


| Printer Functions, Plus Hundreds More. 
C Utility Library is a Trade Mark of 
South Mountain Software Inc. 





C Programmers 







HyperFunctions: Not Hype 


The definition of the basic function has 
changed since we first started develop- 
ing libraries. Today a program without 
pull down menus, dialog boxes, etc. is 
considered old-fashioned. So we have 
designed what we call HyperFunctions. 


HyperFunctions are really complete 
sub-systems designed to add state-of-the- 
art capabilities to your programs. 


One of these is a complete mouse/ 
cursor driven pull-down menu system. 
This system is similar to those found in 
the Turbo or Quick C interface. 


Another is a very complete file- 
handling sub-system. It includes file-find, 
date-driven copies, wildcards, full sub- 
directory handling, group copy and 
delete, and more. 

Some other HyperFunctions include: 

m 43 line EGA text gg Dialogue boxes 


gw A window editor for ASCII files 
m Buffer screen I/O builds pages in 
memory 


m Selective back-up utilities 
m EMS 4.0 support 


Coast To Coast Commitment 
Whichever coast you live near give us 
a call. We will be glad to discuss your 
particular situation and needs. 
Just like in the old days, we do not 


charge any royalties or run time fees. We 
think your efforts belong to you. 


If for any reason you are unsatisfied 
with our product you may return it 
within 30 days for a full refund. Full 
source is included. Price w/source $199 


1-800-451-6174 





S OFTWARE 


South Mountain Software Inc. 


South Orange Plaza 
76 S. Orange Ave., Suite 3 
South Orange, N J., 07079 


N.J. 201-762-6965 Fax. 201-762-0118 
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C Network Compiler. 
C Network Compiler Run. 
C Network Compiler Run 386. 


Introducing 
C Network 
Compiler/386. 


Introducing 
another first from 
Novell—the first net- 
work compiler for 
developing distribut- 
ed applications. 

C Network 
Compiler/386 
gives you the fast- 
est, most stream- 
lined code you’ve 
ever seen, running 
on NetWare’ 386, 
the fastest, most 
efficient network operating sys- 
tem we've ever developed. 

C Network Compiler/386 is 
a complete and integrated set of 
NetWare 386 programming tools 
that generates 32-bit, native- 
mode 386 code. Now you can 
use a standard programming 
tool to conquer the complexities 
of building server applications. 

And for building client 
applications, we offer the DOS 
version of C Network Compiler 
for the entire 80x86 processor 
family. Both compilers are based 


es 





on the latest technology from 
WATCOM Systems Inc., and are 
optimized for use with NetWare. 

Besides the powerful ANSI 
C compiler, enhanced debug- 
ger, linker, and other utilities, 
with our network compilers you 
have the whole library of NetWare 
application programming 
interfaces, including Btrieve} at 
your command. 

That gives you a direct link 
into NetWare, the leading net- 
work operating system with the 
world’s largest installed base of 
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network application users. 

Call us and see how fast our 
C Network Compilers can make 
your applications run. And start 
writing applications today that 
will satisfy the network comput- 
ing needs of the next decade. 


C Network Compiler — USS$695 
C Network Compiler/386 —US$995 





VELL 





For network solutions, 
you should be seeing red. 


Call before you write. 512-346-8380 


©1989 Novell, Inc., Novell Development Products, #917, P.O. Box 9802, Austin, Texas 78766 
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EDITOR IA 


Hindsight and 
The Crystal Ball 


Over the past few months, Mike Floyd has immersed himself in object-oriented program- 
ming in its various guises, becoming our in-house expert on the subject in the process. 
Because this month’s theme is object-oriented programming, it seems natural that Mike 
shares some of what he sees as the promise and the pitfalls of OOP. — J.E. 


architect of Turbo Pascal, if Borland was going to follow the path of C++ and distinguish 

Object Pascal from structured Pascal: Was Borland adding to the product line with TOP (Turbo 
Object Pascal)? Anders’ reply made perfect sense. “Adding objects to Turbo Pascal is simply the 
next step in the evolution of the language,” he said. “From this moment on, Turbo Pascal is an 
object-oriented language.” 

So, is this what we can expect to see in terms of programming and programming languages over 
the coming decade? If not, what does the future of programming — object-oriented or otherwise — 
hold? (Trying to answer questions such as these is much like driving down the highway with your 
eyes fixed on the rearview mirror — you spend more time worrying about where you've been 
without having a clue as to where you're going.) 

Other questions come to mind too. Will C merge with C++ and become D? Although this seems 
a natural next step for C, there are many pressures that may keep it from happening, particularly 
the challenge of getting a standard through ANSI. 

One big question is,““Where will the next set of development tools come from?” Programmers 
who have grown used to having sophisticated tools aren't willing to return to the dark ages that 
existed before development environments, debugging facilities, and library support. But for a 
number of reasons, OOP tools have been relatively slow forthcoming. Until these tools begin to 
emerge, many programmers will be reluctant to make the move to OOP. Traditionally, third-party 
vendors have filled the gap, but the lack of a standard or dominant environment and the past 
experience of putting out tools too early has made third-party developers gun shy. Indeed, market 
pressure from users and competing vendors may force some of the big guys to continually pack 
their class libraries with more bang for the buck, thereby limiting market opportunities for smaller 
tool developers even more. 

Some of the burden falls on the shoulders of the individual programmer. After all, an object- 
oriented system is extensible. In Smalltalk, you don’t write source code, you add components to 
the system. Likewise, languages such as C++ and Object Pascal encourage the programmer to weld 
homegrown components with canned objects to create new tools for the workbench. For the 
optimistic programmer, this is a time of Renaissance; for others, a time of chaos. 

For those of us at DDj, this month’s issue is not just the last one of the year, but the last of the 
decade. It may be appropriate, then, that object-oriented programming is the theme that takes the 
next decade into the next century. 

But, lest you think DD/is adding to the object-oriented hype (OOH?), think again. One size fits 
all? We’re not so sure. You may want to pay particular attention to Scott Guthery as he tries on the 
“Emperor’s New Clothes.” And OOP may not be the only bully on the block either, at least 
according to Ronald Fischer, who believes that Functional Programming may influence the way 
we program over the next decade. Ah, well. If nothing else, it'll be interesting to see what unravels 


in the rearview mirror over the next ten years. 


Michael Floyd 
technical editor 


E arlier this year, just prior to the release of Turbo Pascal 5.5, we asked Anders Hejlsberg, chief 
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Host: e MS-DOS e Macintosh 
Targets: ¢ 8086/80x86 ¢ 680x0 «¢ 8080/Z80/64180 °¢ 65xx 















MS-DOS 
Aztec C86-p Professional 199 
Aztec C86-d Developer 299 
Aztec C86-c Commercial 499 

Amiga 
Aztec C68k/Am-p Pro 199 
Aztec C68k/Am-d Dev 299 

Macintosh 
Aztec C 125 
Aztec C + SDB 189 
Aztec C + MPW 189 
SDB, Unitools, or MPW 125 

APPLE II 
Aztec C for DOS 199 
Aztec C for ProDOS 299 

CP/M-80 
Aztec C CP/M + ROM 349 
Aztec C CP/M 199 

ROM 
Host + Target 500 
Native System for Host 249 

OTHER 

Call for information and 

pricing on third party 

software, ICE units and 
other third party hardware. 


800-221-0440 


¢ Outside USA: 201-542-2121 FAX: 201-542-8386 
e C.0.D, Visa, MC, Am Express, domestic & international wire 
: e one and two day delivery available 













Aztec C features a full spectrum of tools and options to speed the task 
of producing tight, fast, rock solid code. 

Aztec C compilers are fast and full featured. Assembler support includes 
inline assembly, separate assembly, and modifiable output from the 
compiler. A source editor, make utility, linker, and librarian are standard. 

Most systems include ICE interfaces and some feature a source debugger. 

Development of system independent code on the host system can reduce 
development time by over 80%. 

Call or write for detailed technical specifications. 
























Aztec C for Personal Computer Applications 







e MS-DOS e¢ Macintosh e¢ Amiga e¢AppleII e¢ CP/M 







Aztec C delivers a combination of reliability, power, and performance 
that is unsurpassed for the development of professional level software. 







Aztec C systems include C compiler, assembler, linker, librarian, source 
editor, source debugger, and a powerful arsenal of development tools. 
Contents of specific systems vary. Call for details. 











MANX? 


Manx Software Systems 
Box 55, Shrewsbury NJ 07702 
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Striding Forth With Mini- 
Interpreters 

Dear DDJ, 

“Roll your own Mini-Interpreters,” by 
Michael Abrash and Dan Illowsky in 
the September DD/ was fun to read. 
What they have done, essentially, is 
show how to make a Forth-like pro- 
gram without even Forth’s overhead. 
Forth is legendary for producing ex- 
tremely compact code within the Forth 
environment. The authors went them 
one better by eliminating even that. 

What the article doesn’t mention, is 
that there is nothing to prevent high- 
level language compilers from emitting 
this type of threaded code. All that is 
required is to forego separate compila- 
tion and process the entire application, 
including all subprograms and perhaps 
even the run-time library, via a globally 
optimizing compiler (GOC). 

A GOC knows the list of all subpro- 
grams and the entire calling tree. It can 
automatically build one or more jump 
vector tables, and compose the inter- 
preted data streams. Because of the 
low overhead of procedure calls, even 
tiny sequences such as A=B+C could 
be generated as threaded calls rather 
than as direct machine code. Thus, sub- 
program granularity much finer than 
the application code is possible, and 
the compiler would be able to trade off 
code-size versus execution-speed over 
an extraordinary range. 

Recent press reports show that even 
the giants like Lotus and Ashton-Tate 
are killing themselves trying to make 
their code fit the 640K limits of DOS. 
Assuming that others have similar prob- 
lems, there could be quite a market for 
GOCs. Attention compiler vendors! 
Here’s a chance to make more money. 

Of course, global optimization has 
its cost; namely glacial compilation 
speed. The right way to use it would 
be to develop the application on a 386 
in protected mode, using fast compil- 
ers and whatever memory is needed. 
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It should remain in this environment 
even through beta testing, until the code 
can be frozen. Then, assuming a bullet- 
proof and bug free GOC, it can be 
compiled once more with global opti- 
mization. The compiler must be in- 
structed about just how compact the 
program must be. For example, “take 
this program, which needs 843K for 
code using MSC, and compile it to fit 
in no more than 403K while minimiz- 
ing the impact on speed.” Who cares 
if it takes a week or so to finish? The 
GOC could even be run as a service 
bureau, compiling on a Cray, and charg- 
ing as much as one dollar per line for 
a compile. If it works, it would be well 
worth it. 
Dick Mills 
Burlington, Vermont 


Where There’s Smoke, There’s Ire 
Dear DDJ, 

The article in the September 1989 DD/ 
entitled “Roll Your Own Minilanguages 
with Mini-Interpreters” by Abrash and 
Illowsky offended me. No, not by the 
content; by the title. No, “roll your own” 
is not just an expression. 

I hold cigarette smokers (and smok- 
ers of anything else) in very low re- 
gard. Next time, try some synonyms 
like “create,” “devise,” or “construct” 
that have far fewer connotations. 

Bob Bryla 

Barrington, Illinois 


More Kudos for Abrash and 
Illowsky 

Dear DDJ, 

A few remarks on a couple of subjects. 
One: Since the word polymorphism is 
being bandied about a lot these days, 
the following, “loosely typed” defini- 
tion may prove interesting. 

Polymorphism is a polysyllabic noun 
used to “encapsulate” the idea that: 1) 
to treat “loosely coupled” items, you 
use “loosely typed” variables; and 2) 
“loosely typed” variables can’t be bound 
until run-time, an activity often referred 
to by way of another buzzword, “‘late- 
binding.” 

Two: Several hips and half as many 
hoorays for the Abrash and Illowsky 
article in the September issue. The most 
exciting thing about assembly language 
is not the control it gives one over the 
machine, nor the reduction in memory 
requirements and execution time. As 
Abrash and Illowsky point out, the most 
exciting thing about assembly language 
is that it gives you as much control over 
the design of your program logic and 
data layout as you’re ever likely to get. 

To which I would like to add: If you 
want even more control, you need your 
own assembler, perhaps your own edi- 





tor, and even your own operating 
system — only for your own private 
use, Of course (that way there’s no ef- 
fective, market-oriented argument 
against actually tackling the job). As a 
fantastic learning experience, working 
on any of them would be hard to beat. 
Let’s hope DD/has more .ASM goodies 
in the queue. 

Mark Rhyner 

Chicago, Illinois 


LZW Patent Issues 

Dear DDJ, 

“LZW Data Compression,” by Mark Nel- 
son (DDjJ, October 1989) is a nice ex- 
position on the LZW algorithm. But 
before your readers decide to use this 
method in any application (except per- 
haps for purely personal use), they 
should know that the algorithm is pat- 
ented. 

Terry Welch is listed as the inventor 
of U.S. Patent 4,558,302, “High Speed 
Data Compression and Decompression 
Apparatus and Method,” December 
1985, assigned to Sperry Corporation 
(now Unisys). The Unix compress util- 
ity and several commercial and share- 
ware programs are apparently infring- 
ing on this patent (unless they have 
licensed it from Unisys). 

If you wish to use this method in a 
commercial setting, you should con- 
tact Unisys for a license, or at least 
consult your legal counsel first. 

Ray Gardner 

Englewood, Colorado 


Mark responds: When I wrote the LZW 
article I was unaware of any patent 
on the algorithm. The issue has just 
surfaced in the press because of con- 
cern in CCITT Group 7 over approval 
of the BTLZ algorithm for data com- 
pression in the V.42bis modem stan- 
dard. Unisys, British Telecom, and IBM 
apparently all have some claim on the 
algorithm. Robert Bramson, a patent 
attorney for Unisys, has been quoted 
as saying they will license the algo- 
rithm for a one-time fee of $20,000. 
I have not seen the Unisys patent, so 
I don’t know what their specific claims 
are. However, Iam not aware of any 
attempt by Unisys to show infringe- 
ment by software developers. The BTLZ 
algorithm seems to be concerned with 
hardware implementations. In the event 
that they do pursue their claim with 
software developers, they will be very 
busy, as there are literally hundreds of 
potentially infringing programs in the 
commercial marketplace alone. And 
they certainly cannot claim a compre- 
hensive patent on basic [Z compres- 
sion, as Terry Welch, the patent holder, 
(continued on page 12) 
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Words of Caution 
and Encouragement 
for Those Choosing 


a CASE Tool 


Your software projects are growing 
more complex, and maintenance is 
growing more expensive. You think 
that CASE tools could help, but 
some say CASE is more trouble 
than it’s worth. What should you 
believe? Should you jump in? Be 
cautious. Expensive CASE tools 
with rigid methodologies demand 
a commitment of time and money 
so large that anything short of 
revolutionary success can seriously 
damage your budget and your 
career. Now, however, you can 
eliminate methodology grid-lock 
with an affordable, flexible, world- 
class CASE tool. Literally every 
programmer and analyst in your 
company can have the power of 


vsDesigner™ on their PS/2 or PC. 


The Price/Performance 


Leader 
vsDesigner costs only $495 fora 


single-user license, but don’t 
be fooled by its low price — 
vsDesigner has the features and 
power of CASE tools costing over 
ten times more. The Expert version of YSDesigner 
costs $1,995 for a single-user license and includes 
all YSDesigner features plus LAN support, design 
database reporting and the ability to modify or 
create methodologies. 


Use Multiple Methodologies 


vsDesigner supports the structured design methods 
you prefer: Yourdon, Gane-Sarson, Warnier-Orr, 
Ward-Mellor Real-Time, Entity-Relationship, Flow 
Chart, etc. It supports multiple methodologies or 
“syntaxes” simultaneously so that a design can 
contain layers (nodes) using different syntaxes. For 
example, you can use Data Flow Diagrams for the 


Example Egg Processing Plant 


Local 


Chickens Garbage 


Warehouse A 


Warehouse B 


Empty Boxes 


Empty Cartons 


Draw menu Squib] Roam Modify Text Locate treeConn Browse Gattr Prtsc Quit 
Move to add symbol menu. Current syntax: Demo 


Data Flow Diagrams are just one of the 
standard methodologies supported 


Look Before You Leap. 


You Can Have A Flexible, 
Powerful, Affordable CASE Tool. 


top level of your design and then decompose each 
module into Structure Charts, State Diagrams, 
Entity-Relationship Diagrams, etc. 


Customize Methodologies Or 
Create Your Own 


With the Expert version of YSDesigner, you can 
modify the syntaxes we supply, or you can even 
create your own syntaxes for ultimate flexibility. We 
believe that the tool should adapt to and then 
enforce your team’s standards and practices rather 
than vice versa. 


Quality Code From Quality Design 
Although many CASE tool users have had signifi- 


cant productivity gains, structured design improves 
quality even more than productivity. The design 
checking programs included with VsDesigner allow 
you to check the logical integrity of your designs 
before you begin writing code. The resulting code 
will be more reliable, and maintenance costs will 
be much lower because operations are logically 
consistent. 


Collaborate over a LAN 


The Expert version of VSDesigner also adds LAN 
support so that all your designers can simultaneously 
work on the same design. Node locking allows 


design collaboration while prevent- 
ing conflicting changes to the 
shared design. 


The Expert version of VSDesigner 
also provides the database and 
reporting capabilities necessary to 
predict lines of code, number of 
modules, completion dates, respon- 
sibilities and project complexity. 


One Picture Is Worth 
A Thousand Meetings 


vsDesigner enhances the com- 
munication among team members 
by giving managers, team leaders, 
programmers and analysts a visual 
picture of your system’s architecture 
making it faster and easier to com- 
municate design changes through- 
out the team. 


Fast Learning Curve 


vsDesigner has powerful on-line 
help, and the User’s Manual has an 
extensive tutorial. Your choice of 
Lotus-style menus or pop-up menus 
make command selection easy. The 
built-in word processor even 
emulates popular word processors to reduce learn- 
ing time. Color graphics make your designs easier 
to understand. 


A World-Class Design/Analysis 
Tool From The Best-Rated 
CASE Vendor 


When you choose YSDesigner, you become a 
valued customer of Sage Software, the “Best-Rated 


CASE Vendor” in the Donohue 1989 Fortune 1000 
Software Industry Report. 


Both versions of YSDesigner require an IBM- 
compatible PC or PS/2 with 640K RAM, EGA 
monitor and a hard disk. A mouse is recommended. 
Printers supported are: Epson FX85, FX286 & 
MX80; HP LaserJet+ and Laserjet Series II. 


30-Day Money-Back Guarantee 


To Order 1-800-547-4000 


Outside North America call (301) 230-3307. 
Send checks and PO.s to SAGE/POLYTRON, 
1700 NW 167th Place, Beaverton, OR 97006. 
FAX: (503) 645-4576. Prices are N. American only. 
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WELL MATCH NATIONALLY ADVERTISED PRICES. 


386 PRODUCTS 
386 ASM/LINK 

386/VMM 

386MAX 

386MAX PROFESSIONAL 
C Network Compiler/386 
DESQview 386 

Lahey F77L-EM/32 
Microsoft Windows/386 
NDP FORTRAN-386 
Paradox/386 

VM/386 

VM/386 Multi-User 
VM/386 NetPak 

VM/386 & NetPak Bundle 


ADA LANGUAGE 


IntegrAda 
Janus/Ada Compiler 
Janus/Ada Options Kit 
Meridian: 
AdaGraduate 
AdaStudent 
AdaTutor 
AdaVantage Developer's Kit 
AdaVantage PC Prof. Dev. Kit 


ASSEMBLY LANGUAGE 
Advantage Disassembler 

MS Macro Assembler 

OPTASM 

Sourcer w/ BIOS source 

Turbo Assembler/Debugger 
Visible Computer: 80286 


BASIC COMPILERS 
MS BASIC/6.0 
QuickBASIC 

True BASIC 

Turbo Basic 


BASIC LIBS/UTILITIES 
db/LIB 

Designer QuickWindows 
DiaLogic 

Finally! 

GraphPak 

GraphPak Professional 
LaserPak 

ProBas 

ProBas HyperHelp Toolkit 
ProBas Telecomm. Toolkit 
ProBas Toolkit 

ProMath 

ProScreen 

QBase Report 

QBase and Quickscreen 
QuickComm 

QuickHelp 

QuickMenu 

QuickPak 

QuickPak Professional 
QuickPak Scientific 
QuickScreen 
QuickWindows Advanced 
QuickWindows Advanced Corp. 
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C COMPILERS 
C Network Compiler 695 325 
Lattice C 6.0 250 199 
Microsoft C 450 299 
MS QuickC 99 69 
MS QuickC w/ QuickAssembler 199 135 
Turbo C 150 99 
Turbo C Professional 250 169 
WATCOM C 7.0 395 319 
Zortech C 90 79 
C++ 
Guidelines C++ 295 269 
Zortech C++ 200 165 

Developer's Edition 450 385 
Zortech C++ Tools 150 129 
C-COMMUNICATIONS 
Breakout II 125 99 
C Asynch Manager 3.0 189 139 
Essential Communications 249 199 
Greenleaf Comm. Library 299 209 
Greenleaf ViewComm 559 475 
Lattice Communication Library 250 209 
SilverComm C Async Library 249 209 
C-FILE MANAGEMENT 
Btrieve 245 185 
Btrieve for DOS 3.1 Networks 595 449 
CBTREE 159. 435 
C Index + 99-89 
C-ISAM 225 209 
Codebase IV 295. 219 
CQL w/ PASS 395 349 
c-tree 395 315 
dBC Ill 250. 219 
dBC III Plus 500 439 
db_FILE Bundle 295 249 
Essential B-Tree 99 89 
C-GENERAL LIBRARIES 
C TOOLS PLUS/6.0 149 109 
C Utility Library 199 139 
Greenleaf Functions 229 165 
Greenleaf SuperFunctions 299 209 
Turbo C TOOLS/2.0 149 109 
C SCREENS 
C-Worthy w/ forms and source 495 CALL 
Facelt 99 89 
Greenleaf DataWindows 395. 2793 
JAM 595 529 
Panel Plus 495 395 
Vermont Views 395 CALL 
Vitamin C 225. 165 

VC Screen 149. 115 
C-UTILITIES/OTHER 
Clear + 200 169 
C-Terp 300. 219 
Heap Expander 80 70 
Norton Guides for C 100 65 
PC-lint 139 105 
PCYACC Professional 395. 359 
TimeSlicer 295 279 

w/source 1000 899 


COBOL LANGUAGE 


Micro Focus: 
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COBOL/2 w/ Toolset 1800 1499 
COBOL/2 Toolset 900 749 
Personal COBOL 149 129 
MS COBOL 900 629 
Realia COBOL 995 849 
w/ RealMENU 1145 979 
SCREENIO 400 375 
CODE GENERATORS 
C Source 395 299 
Logic Gem 198 179 
Matrix Layout 3.0 200 169 
PRO-C 399 339 
DATABASE DEVELOPMENT 
Clarion 2.0 695 499 
Clear + 200 169 
Clipper 5.0 695 439 
dBASE IV 795 489 
dGE 195.479 
Dr. Switch 60 55 
Dr. Switch DeveloperPak 99 89 
FoxBASE+ 395 249 
Magic PC 299 249 
Paradox 3.0 725 509 
R&R Report Writer 150. 129 
w/ Clipper/ FoxBASE module 200 159 
R&R Code Generator 150. 129 
Say What?! 50 45 
SilverComm Library 2.0 189 165 
C Interface 99 89 
SilverPak 295 249 
Tom Rettig’s Library 100 80 
EDITORS 
BRIEF 3.0 199 CALL 
Edix 195 165 
Epsilon 195 159 
KEDIT 4.0 150. 425 
MKS Vi 149 129 
Norton Editor 75 59 
SLICK Editor 195 | ¥75 
SPE/PC 245 199 
VEDIT PLUS 185 = 445 
FLOWCHARTING 
EasyFlow, Interactive 150: 445 
Flow Charting II+ 229 179 
RFFlow 79 70 
FORTRAN LANGUAGE 
Grafmatic 135 119 
Lahey F77L 595 529 
Lahey Personal FORTRAN 77 95 89 
MS FORTRAN 450. 299 
Plotmatic 135 149 
- Printmatic 135 419 
RM/FORTRAN 595. 499 
GRAPHICS LIBRARIES 
Baby Driver 250. 225 
Essential Graphics 299 239 
Font-Tools 150. 435 
Graf-Text 89 79 
GraphiC 5.0 395. 322 
Graphics-MENU 195 75 
GSS Graphics Devel. Toolkit 595 509 
HALO 395 279 
HALO Window Toolkit 595 419 
Icon-Tools/Plus 150 135 
MetaWindow 250 209 
MetaWindow Plus 325 269 
Menuet 250: 225 
PCX Effects 99 89 
PCX Programmer's Toolkit 195 475 
PCX Text 149 135 
XVT 595 509 
LINKERS/LIBRARIANS 
Plink86plus 495 419 
PolyLibrarian II 149 135 
.RTLink 195 185 
MODULA-2 
LOGITECH Modula-2: 
Compiler Pack 99 75 
Development System 249 199 
Repertoire 149 135 
TopSpeed Modula-2: 
B-Tree Toolkit 149 135 
Communications Toolkit 149. 135 
Compiler Kit 100 89 
DOS 3-Pack 200. 179 
TechKit 60 55 
VID 60 55 
OPERATING SYSTEMS 
Concurrent DOS 386 (3-users) 395. 3235 
Interactive 386/ix (complete) 1095. 989 
Multi-User 1445 1299 
Microport Sys. V/386 (comp.) 899. 799 
PC-MOS 386 3.0 ( 1-user) 195 179 
SCO 286 XENIX (complete) 1295 1099 
SCO 386 XENIX (complete) 1595 1269 
Wendin DOS 139 109 
PCNX 99 80 
PCVMS 139 109 
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OS/2 TOOLS 
Brief 195 CALL 
Btrieve 595 449 
Epsilon 195 _ 1598 
Greenleaf DataWindows 395 309 
GSS Graphics Toolkit 595 519 
HALO 695 489 
MKS Toolkit 495 439 
MS OS/2 Present. Mgr. Toolkit 500 349 
Multiscope 299 249 
Panel Plus 495 395 
Paradox OS/2 725 543 
Topspeed Modula-2 195 179 
Vitamin C 345 279 
PASCAL LANGUAGE a 
Asynch PLUS 149 115 
B-tree Filer 125 99 
MS QuickPASCAL 99 69 
Object Professional 150 +119 
Power Screen 1.1 149 109 
Power Tools PLUS/5.0 149 109 
Topaz 75. 67 
Turbo Analyst 99 79 
TurboMAGIC 199 179 
Turbo Pascal 5.5 150. 105 
Turbo Pascal 5.5 Professional 250 175 
Turbo-Plus 5.5 150. 429 
Turbo Professional 5.0 125. 99 
PROTOTYPING 
Dan Bricklin’s Demo II 195 159 
Instant Replay III 150 135 
Show Partner F/X 350. 319 
Soft Demo 80 70 
SOURCE MAINTENANCE 
MKS Make 149 129 
MKS RCS 189 159 
Personal PVCS 149 425 
PolyMake 149. 425 
Professional PVCS 395 335 
Seid! Version Manager 300 269 
TLIB 100 90 

5 Station LAN 300. 259 
WINDOWS (MS) TOOLS 
Actor 495 429 
Case:W 795. 759 
C-Talk/Views 450 375 
dBFast/Windows 249 229 
MS Windows Development Kit 500 349 
Whitewater Resource Toolkit 195 169 
WinTrieve 395 339 
ADDITIONAL PRODUCTS 
Baler Spreadsheet Compiler 495 459 
Derive 200 179 
Inside! 125 109 
Opt-Tech Sort 149. 4298 
Paginate 100 89 
PC/Forth + 250. 225 
PC Metric 199 +185 
PC Scheme 95 79 
Personal Rexx 150 129 
Source Print 99 89 
Tree Diagrammer 99 89 





PAGINATE 


List: $500 






New from AccuMatics, a higher 

approach to source printing. Full- 
screen directory display. Integrated file 
browser with text selection and text 
export. Tag files for a completely 

automated session. Background 
printing. Structure diagrammers and _ 


much more. 8 
List: $100 Ours: $89 
THE HEAP EXPANDER © 


Turbo C. 
List: $80 Ours: $70 — 
SMALLTALK/V PM 


Combines the power of the ind 
leading object-oriented environment | 
with the richness of Presentation  —_~” 
Manager. Fully compiled, givinga PM 
application developer an extremely 
responsive environment with which 
to work. Source code compatibility _ 
with Digitalk's other Smalltalk products. 


Ours: $425 ” 


Programs can have virtually unlimited _ 
heap space using expanded memory, _ 
extended memory and disk space. _ 
Comes with complete source code an 
libraries, documentation and utility) 
programs. Supports Microsoft C and 


mye 




























An Invitation TOO 
_ Good To Refuse 
You're invited to purchase 
Vermont Views libraries v1.1_ 

NOW, and receive Vermont 


FREE upon its release. This 
31st, 1990. Don't be left ou 


For more details, see our 
Adin this magazine. 


LIST OURS 
BORLAND 
Paradox 3.0 725 $09 
SideKick Plus 200 139 
Turbo Assembler/Debugger 150 105 
Turbo Basic 100 = 69 
Turbo C 2.0 150 99 
Turbo C 2.0 Professional 250 169 
Turbo Pascal 5.5 150 105 
Turbo Pascal 5.5 Professional 250: 475 
Turbo Prolog 150 105 
Turbo Prolog Toolbox 100 69 
CREATIVE PROGRAMMING 
VCScreen 149 115 
Vitamin C 225 165 
for OS/2 345. 279 
Reference Database 50 CALL 
DIGITALK 
Smalltalk/V 100 85 
Communications 50 45 
EGA/VGA Color Extension 50 345 
Goodies #1, #2 or #3 50 45 
Smalltalk/ V 286 200 169 
Smalltalk/ V PM 500 425 
FAIRCOM 
c-tree 395 315 
w/ r-tree 650 519 
w/ r-tree, d-tree CALL CALL 
d-tree 495 395 
r-tree 295. 239 
GSS 
GSS*CGM Metafile Interpreter 295 249 
GSS*GKS Kernal System 595 . 519 
GSS*GPS Plotting System 395. 329 
GSS Graphics Devel. Toolkit 595 B19 
XVT 595 509 
IGC 
VM/386 245 199 
VM/386 Multi-User 895 759 
VM/386 NetPak 150: 419 
MEDIA CYBERNETICS / 
Dr. HALO III 140 +101 
HALO 395 279 
HALO DPE 195 439 
HALO for MS Developers 595 399 
HALO for OS/2 695 489 
HALO Programmer's Workbook 80 59 
HALO Window Toolkit 595 419 
MICROSOFT : 
MS BASIC/6.0 295 199 
MS C 450 299 
MS COBOL 900 629 
MS FORTRAN 450 299 
MS Macro Assembler 150 99 
MS OS/2 Present. Mgr. Toolkit 500 349 
MS OS/2 Softset 150 105 
MS Pascal 300 209 
MS Programmer's Library 395 275 
MS QuickBASIC 4.5 99 69 
MS QuickC 2.0 99 69 
MS QuickC w/ QuickAssembler 199 135 
MS QuickC w/ Mouse 199 99 
MS QuickPASCAL 99 69 
MS Windows 99 69 
MS Windows/386 195. 435 
MS Windows Development Kit 500 349 
MORTICE KERN SYSTEMS —s 
MKS Awk 99 85 
MKS Lex and Yacc 249 209 
MKS Make 149 129 
MKS Make for OS/2 249 209 
MKS Programming Platform 665 565 
MKS RCS 189 159 
MKS RCS for OS/2 395. 335 
MKS SoftQuad Publishing Sys. 495 469 
MKS Software Mgmt. Team 299 255 
MKS Toolkit V3.1 249 209 
MKS Toolkit V3.1 for OS/2 495 419 
MKS Vi 149 129 
MKS Vi for OS/2 199 169 


Views v2.0 with the Designer — 
offer is good only until January 


ofthe celebration! = —— 
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NOVELL 

Btrieve Single-User 245 
Btrieve for DOS 3.1 Networks 595 
Btrieve for OS/2 595 
Btrieve for XENIX 595 
C Network Compiler 695 
C Network Compiler/ 386 995 


NetWare C Interface for DOS 295 | 


NetWare MHS 100 
NetWare MHS Interface Guide 145 


NetWare RPC CALL 
NetWare RPC for OS/2 CALL 
NetWare SQL 595 
NetWare System Calls for DOS 195 
XQL 795 
Xtrieve PLUS 595 
Xtrieve PLUS for OS/2 595 
PERISCOPE 
80286 Flex Cable Kit 200 
80386 Flex Cable Kit 400 
Periscope I/OK 545 
Periscope I/512K 795 6 
Periscope II 1752 
Periscope II-x 145 
Periscope III/10 MHz 1395 
Periscope III PLUS/OK 1745 - 
Periscope II] PLUS/512K 1895 ¥ 
Periscope IV/16 MHz 1995 @ 
Periscope IV/20 MHz 2295 
Periscope IV/25 MHz 2595 
POLYTRON _ 
C Beautifier 99 
Personal PVCS 149 1 
Pfinish 395 
Pfix Plus 395 | 
Plink86plus 495 — 
PolyAWK 99. 
PolyDoc 199 
PolyLibrarian 99 
PolyMake 149. ¢ 
PolyXRef 99. 
Professional PVCS 395 
SOLUTION SYSTEMS 
Brief 3.0 199 3 

w/ dBRIEF 275 
C-Worthy 195 | 

w/ forms 295 | 

w/ forms and source 495 C 
dBRIEF 95 § 
WHITEWATER GROUP | 
Actor 495. 
Language Extensions | 99 
Whitewater Resource Toolkit 195 | 
WinTrieve 395. 3 
ZORTECH 
Zortech B-Tree Tools 80... 
Zortech C 90 79 
Zortech C Debugger 90. 79 
Zortech Pro Screen Tools 70. f 
Zortech C Video Course 300. jj 
Zortech C Windows 70. =~6 
Zortech C++ 200-16 

Developer's Edition 450 385 
Zortech C++ Debugger 150. 12s 
Zortech C++ Tools 150°) 


Zortech C++ Video Course 


185 
449 





CALL CALL 


PROGRAMMER’S POLICIES 


Phone Orders 


Hours 9 AM-7 PM EST. We accept 


MasterCard, Visa, American Express. 


Include $4.00 per item for shipping 
and handling. All shipments by UPS 


ground. Rus 


Mail Orders 


service available. 


POs by mail or fax are welcome. 


Please include phone number. 
International Service 


Phone number required with order. 


Call or fax for additional 
information. 


Dealers and Corporate Accounts 


Call for information. 
Unbeatable Prices 


We'll match nationally advertised 
prices. (Subject to same terms and 


conditions.) 
Return Policy 


30-day no-hassle return policy. Some CIRCLE NO. 195 ON READER SERVIC 
A Division of Voyager Software Corp 


manufacturer’s products cannot be 
returned once disk seals are broken. 


VERMONT VIEWS 


C-PROGRAMMERS! Would you like to double your productivity and 
have FUN too? Vermont Creative Software has the answer with the 
imminent release of the Vermont Views Designer. 





Vermont 
Creative 
Software 


This intuitive, menu-driven, screen 
generator taps the resources of the 

650 pre-coded functions of the Vermont 
Views libraries. Customize data entry 
forms, choice lists, menus and more. 
Our customers around the world will be 
celebrating this powerful enhancement 
of Vermont Views. See our ad in this 
magazine for more details on how you 
can join the party...and try out Vermont 
Views with the Designer. 


Ours: CALL 


TURBO C 2.0 


The Turbo C 2.0 optimizing C compiler with the integrated source-level 
debugger includes the compiler, editor, and debugger. 


Turbo C 2.0 is fast, compiling your code better 
than 16,000 lines per minute! The integrated 
source-level debugger allows you to set 
multiple breakpoints, watch variables, and 
evaluate expressions—all from inside your 
integrated Turbo C environment. 


Other features include: support for six 
memory models; in-line assembler; automatic 
dependency checking; and more than 430 
optimized functions. The editor even has 


EMS support. 
List: $150 


Ours: $99 





BORLAND 


BRIEF 3.0 - The Programmer's Edition 
Edit Your Programs More Productively Than Ever Before 





The program that set 
the standard for 
program editing 
continues to lead the 
industry. Introducing 
BRIEF 3.0. New 
features include: 
multiple keystroke 
macros, a new C-like 
macro language, a 
source level macro 
language debugger for 
both macro languages, 
"smart" indenting and 
template editing for 


Syeme 


Ada, C, Cobol, BASIC, 


a FORTRAN, Modula-2, 


and Pascal, and the 
ability to "zoom" your 
current window to full 
screen size. You'll also 
get the features over 
50,000 current users 
have come to rely on: 
unlimited windows, 
Undo, compile within 
BRIEF, a LISP-like macro 
language, and much 
more. 

List: $199 Ours: CALL 





VM/386 & NetPak Bundle 


VM/386, the PC Magazine Technical Excellence Award-Winning multi- 
tasking product, does wonders on networks working with the new 
companion product, 386 NetPak. Each one of the multiple DOS sessions 


running under VM/386 can access network files and 
rinters through the NetPak software. And you can run 
arger memory-hungry applications such as CAD or 

Desktop software without ever leaving the network. If 


IAC 


you're running on a network, this bundle is a must! 


VM/386_ List: $249 Ours: $199 
NetPak List: $150 Ours: $119 Together: $269 


International: 201-389-9228 


Customer Service: 201-389-8950 
Call or Write for Latest Free Catalog! 


1-800-445-7899 
Phooha 





Paradise 


1163 Shrewsbury Ave., Shrewsbury, NJ 0770 





Fax: 201-389-9227 
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(continued from page 8) 
was not the inventor. 

I agree with Mr. Gardner that any- 
one who intends to use LZW compres- 
sion in a commercial product would 
be wise to consult legal counsel first. 

Finally, I would like to suggest that 
DDJ readers begin a letter-writing cam- 
paign directed to members of Congress, 
the ACM, and the IEEE. The current 
confusion over copyright and patent 
issues in the software development world 
only serves to stifle both creativity and 
productivity. At present the only way 
questions regarding the validity of copy- 
rights and patents are being answered 
is through random decisions from le- 
gal proceedings. Copyright and patent 
laws both need to be updated to work 
properly in the 1990s. 


Small Is Better 

Dear DD], 

Jeff Duntemann is the second person I 
have encountered in print this month 
who characterizes the evolution of 
S/370 mainframes as moving toward 
the role of a gigantic file server. The 
other guy is the CEO of my present 
work situation. 

A recent discussion (warm, not 
heated) with a fellow systems grunt 
who specializes in network supports 
Jeffs observation that the mainframe 
“empire” is resisting the enhancement 
and distribution of processing that mi- 
cros bring to the 4 techno-brews we 
build and support. His positions are 1) 
most databases cannot be distributed, 
2) the lack of standardized protocols 
and network architectures eliminate 
most advantages of micro local pro- 
cessing, and 3) ancient business prac- 
tices, banking for example, do not mesh 
well with modern data processing tech- 
nologies. Well, some of that is true yet 
anyone who has jumped into micro 
coding from a mainframe environment 
knows the euphoria of megalomaniacal 
control, has been amazed by the low 
cost of quality software tools, and has 
embraced the heady vision of a com- 
puter-literate society where program- 
ming arts will be as second nature as 
reading and writing. 

IBM and compatible vendors con- 
tinue to eliminate the need for systems 
support through automated operations, 
packaged operating system installation/ 
maintenance, 4GL database administra- 
tion, system managed storage, and of 
course function suction into microcode, 
as Jeff has observed. Systems program- 
ming at the operating system level has 
been reduced to configuration man- 
agement to a great degree. S/370 main- 
frames are becoming turnkey and self- 
configuring, a welcomed release from 
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drudgery and business risk. As a result, 
we systems programmers who were 
first attracted to the science, art, and 
technology of S/370 become increas- 
ingly bored with the whole mainframe 
world. Some organizations have tried 
to cut this boredom by inventing pro- 
jects based on ALC for their program- 
mers to play with, usually having artifi- 
cial and redundant purposes. What a 
waste of talent. 

My AT-class system is booted, the 
coffee is fresh, Turbo C faithfully awaits 
my attention as the word processor 
gets stroked. It is Sunday morning, the 
sky is gray with rain, my desk is strewn 
with reference books and product cata- 
logs. An application that has never ex- 
isted before occupies my background 
wetware as these lines are written; plans 
for system expansion pop up like 
menus. I am a happy programmer do- 
ing happy things: I am learning, creat- 
ing, imagining. 

Come Monday morning I will return 
to my small, crowded office and turn 
my concerns to DASD management. 
There will be performance statistics to 
analyze and a time sheet to keep cur- 
rent. A product analysis report will be 
written, a meeting attended. Decisions 
will be made slowly and safely, actions 
will be delayed to an ever-shrinking 
outage window. I will think occasion- 
ally about the 20 MIPS processor, the 
four-volume database, the worldwide 
network. Problems will occur and so- 
lutions will be defined. I will cover my 
behind and not rock the boat too vio- 
lently because this is how you survive 
in the business world. 

Meanwhile there is a whole popula- 
tion of micro programmers out there 
who are thinking at a level not known 
in the mainframe world in recent years, 
whose mainframe concerns amount to 
a hill of beans. They want access and 
nothing more. At their fingertips are 
megabytes of main storage, gigabytes 
of disk storage, CASE tools, multitasking, 
hundreds of colors, thousands of bauds. 
Me, I will hit ENTER at my graphics 
tube and wait for GDDM to get a few 
cycles. I will print a document and 
receive it an hour later. I will scurry to 
the machine room to check a main 
console; scurry to a meeting and strug- 
gle to stay interested, write a memo, 
update a time sheet. I will return home 
to boot my personal system and again 
become a happy programmer. 

Business in general wants the turn- 
key mainframe. There is nothing wrong 
with this other than it puts me and 
many other systems folks out on the 
street with unmarketable knowledge. 
Notice I did not write “skills” — we all 
have tremendously marketable skills. 





S/370 knowledge is a good base for 
OS/2; assembler knowledge a good 
base for micro assembler; SAS and other 
high-level language knowledge a good 
base for Pascal, C, and others. Our 
skills are inherent: Love of science, art, 
and technology; the ability to make a 
machine do what we want; enough 
business savvy to survive these many 
years in data processing. So bring on 
the turnkey mainframe; bring on the 
local area network; bring on distrib- 
uted processing; and give me back my 
machine! Let me build the better sys- 
tem, create the never before seen ap- 
plication, make this puppy run like it 
never ran before. Get me out of the 
erector-set mentality of canned soft- 
ware, black box hardware, and Big 
Blue strategy. 

For my colleagues who find all this 
ranting quite unbecoming of a profes- 
sional, I would advise opening up those 
purse strings and getting a home micro 
system. Get some development soft- 
ware, build a reference/tutorial library. 
Cook up some application interesting 
to you and develop it. It does not mat- 
ter if the program ever sells. It matters 
that it is your program, does what you 
want, and that you learn the amazing 
cost, function, and performance char- 
acteristics of the micro computer. Then 
and only then will we ever have mean- 
ingful discussions on the viability of 
distributed, local, and personal com- 
puting. 

Two really smart people in one month 
comparing mainframes to file servers. 
Doesn’t that tell you something? 

Ray A. Kampa 

Chantilly, Virginia 


Unix Help Wanted 

Dear DDj, 

I would like to describe a problem I 
recently encountered with the Unix sys- 
tem Bourne shell. It seems that there 
is a subtle interaction between path 
searching, file permission flags, and 
file hashing. A friend asked me to do a 
regression test for him after he made 
some last minute changes to his pro- 
gram. Using FTP, I imported a copy of 
the last minute version. (An official beta 
test version was already installed on 
my system.) A quick test showed that 
no errors had been introduced by the 
changes. In fact, I could detect no dif- 
ference at all between the beta and last 
minute versions. I reported to my friend 
that everything looked fine. Hours later, 
he dropped by to demonstrate some 
exciting feature. Having difficulty find- 
ing this feature in my copy of his pro- 
gram, he concluded that I had, in fact, 
been testing the official beta version. 
What had happened? 
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Hes A debugging 
tool tough enough to 
handle the DOS (ean 6s) (0) 0 


Nasties. 


Nasty over-write? No sweat! 


Soft-ICE memory range break points help you 
track down memory over-write problems 
whether you are doing the over-writing or 
another program is over-writing you. 


Hung program? No problem! 


When the system hangs, you now have hope. 
With Soft-ICE you can break out of hung 
programs no matter how bad the system has 
been trashed. And with Soft-ICE’s back trace 
ranges you can re-play the instructions that led 
up to the crash. 


Program too large? Not with Soft-ICE! 


Soft-ICE runs entirely in extended memory. This means 
you can debug even the largest DOS programs. And 
since your program runs at the same address whether 
Soft-ICE is loaded or not you can find those subtle 
bugs that change when the starting address of your 
code changes. 


System debugging? Soft-ICE is a natural! 


Soft-ICE is ideal for full source level debugging of TSRs, 
interrupt service routines, self booting programs, DOS 
loadable device drivers, real-time kernels, non-DOS O/Ss 
and ROMs. Soft-ICE can even debug within DOS & BIOS. 


Soft-ICE $386 


@ Back Trace Ra 
MagicCV $199 pare ne sk al 


How Soft-ICE Works 


Soft-ICE uses the power of the 80386 to sur- 

round your program in a virtual machine. 

This gives you complete control of the 

DOS environment, while Soft-ICE runs 

safely in protected mode. Soft-ICE uses the 

80386 to provide real-time break points on 

memory locations, memory ranges, execution, 
I/O ports, hardware & software interrupts. 

With Soft-ICE you get all the speed and power of 

a hardware-assisted debugger at a software price. 


Don’t want to switch debuggers? 
You don’t have to! 


Soft-ICE can run stand-alone or it can add its 
powerful break points to the debugger you already 
use. Use your favorite debugger until you require 
Soft-ICE. Simply pop up the Soft-ICE window to set 
powerful real-time break points. When a break point 
is reached, your debugger will be activated automatically. 


MagicCV with Soft-ICE 


Using Soft-ICE with CodeView gives you the features 
necessary for professional level systems debugging. 
MagicCV and Soft-ICE can work in concert with Code- 
View to provide the most powerful debugging platform 
you will find anywhere. 


“These may be the only two products I’ve seen in 
the last two or three years that exceeded my wildest 
expectations for power, compatibility and ease-of-use.” 
— Paul Mace 
Paul Mace Software 


RUN CODEVIEW . 


IN 8K 


. @ Symbolic & Source level debugging 5 
MagicCV for Windows $199 @ EMS 4.0 support with special EMS MagicCV 
Buy Soft-ICE & MagicCV(W) debugging commands CodeView is a great integrated debugger, but 
Baye 686. ® Windowed user interface it uses over 200K of conventional memory. 


Buy MagicCV and MagicCVW 
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MagicCV uses advanced features of the 
80386 to load CodeView and symbols in 


—Save $100. extended memory. This allows MagicCV to 
Buy All 3 —Save $186. N ; Nu-Me da run CodeView in less than 8K of conven- 
tional memory on your 80386 PC. 


30 day money-back guarantee 
Visa, MasterCard and 


TECHN TECHNOLO LOGIE ES NEW-—Version 2.0 includes EMS 4.0 driver. 


Attention Windows Developers! 


AmEx accepted eye CALL TODAY (603) 888-2386 Version available for CVW. 
" or FAX (603) 888-2465 


P.O. BOX 7607 @ NASHUA, NH @ 03060-7607 





CIRCLE NO. 174 ON READER SERVICE CARD 
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(continued from page 12) 

My friend and I reasoned that two 
things had occurred. First, FTP had 
stripped the execute permission from 
my copy. Second, and heretofore un- 
known to me, the path search function 
only finds files that have execute per- 
mission set. It encounters the named 
file without execute permission, it con- 
tinues its hunt for an executable ver- 
sion. Uf the official beta test version 
had not been installed, I would have 
received the error message: “name: exe- 
cute permission denied.”) 

Being resourceful, my friend and I 
proceeded to reset the execute permis- 
sion flag using the chmod command. 
And, when we tried to execute the 
program again, the path search func- 
tion still yielded the official beta test 
version. Now what had happened? 

Hashing! The Bourne shell of System 
V has a thing called file hashing that 
speeds up path searches. The shell re- 
members where in your search path it 
was that invoked commands were last 
found. So even though path searching 
would have worked properly now, it 
was not being used. The hash memory 
can be erased with the “hash - r’ com- 
mand. 

Now, at last, my copy of the program 
was being tested. Unfortunately, it was 
time to go home, and the actual pro- 
gram test had to wait until the next 
day. (Yes! Non-trivial errors were dis- 
covered and I had to retract my earlier 
thumbs up.) 

Perhaps the Unix developers would 
consider a revision to the System V 
specification and redesign the path 
searching algorithm. Would it cause 
any problem, I wonder, if, instead of 
looking for EXECUTABLE FILES, the 
path search function looks for ANY 
FILE whose name is identical to that 
entered on the command line. This 
might generate more error messages, 
but users could be more confident that 
path searching has resolved to the ex- 
pected version of a file. 

Steve Haffner 

Issaquah, Washington 


Graphics Programming Fix 

Dear DDJ, 

As you probably have been made 
aware, there was a typo in one of the 
listings for Kent Porter’s “Graphics Pro- 
gramming” column in the July issue. 
The typo caused a program to loop in 
a recursive call, which would either 
cause a system bang or exhausted stack 
space. 

The typo was in the program RE- 
SIZE, in the subroutine drawstar. In 
this subroutine, the first call to draw_rect 
should have its dy argument be (30) 
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not (-30). This causes the intended rec- 
tangle to be lower than the arguments 
to the following floodfill anticipated. 
Instead of filling an object, the floodfill 
routine tries to fill the viewport. 

This first error revealed two other 
errors in earlier listings that had not 
been noticed because filling a view- 
port had never been tested. 

The first is in the EGAPIXEL routine. 
It checks incorrectly if a pixel is within 
the vuport. It checks if the pixel is 
“greater than or equal” to the vuport 
instead of just “greater than’’. If a pixel 
is in the vuport, it can be equal to the 
limit. This caused the floodfill to reject 
the last fill line as outside the vuport 
and make a recursive call in the reverse 
direction, starting an endless loop. 

The EGAPIXEL routine does not 
check if the pixel is less than the vuport. 
This is why the endless loop doesn’t 
happen until the fill hits the bottom. 
Depending on someone’s needs, the 
test can be either fixed for both cases 
or dropped completely. 

The second error is in FLOODFILL. 
The variable dir is not needed at all. It 
can be fixed as -7 in the first loop and 
+1 in the second. The third loop can 
be dropped completely. With these 
changes, there is no need to add a 
check in floodfill for the error return 
condition from EGAPIXEL. Also this 
change speeds up the fill routine by 
about 20 percent. 

John Horvath 

Acton, Massachusetts 


Subscrib-er to Subscrib-ee 
Dear DDJ, 
I have been a fan of Jeff Duntemann 
since the late Borland Turbo Technix. 
His October column comparing OOP 
word definitions in various languages 
was a beauty. However, I would like 
to play turnabout. 

In defining binding he uses the terms 
caller and call-ee. I quibble with call-ee. 

There is a parent-child sequence that 
goes something like telegraphy, tele- 
phony, radio, electronics, computers. 
We have inherited much terminology 
from our ancestor technologies. Since 
time immemorial (or at least, since the 
beginnings of telephone and telegraph 
switchboards) the terms caller and called 
have been used. These are pronounced 
call-lerr and call-ledd. Each word has 
two equally stressed syllables. 

John P. Reid 

Bear, Delaware 
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Network Graphs in 


Object Pascal 


Linked Lists as reusable objects 


he origins of OOP and the emer- 

gence of OOP features in a num- 

ber of programming languages 

are well known. The propo- 

nents of Ada and Modula-2 
claim that OOP is part of the design of 
these languages. C, the language of the 
systems developer, has also been caught 
up in the OOP wave, spawning C++ 
and Objective C. Most recently, the Ap- 
ple-developed OOP dialect of Pascal 
has gained momentum now that Mi- 
crosoft and Borland have both added 
support of objects into their respective 
Pascal offerings. 

In this article, I will discuss how 
Object Pascal implements objects and 
methods, and I'll describe a program 
that creates a network graph. I'll also 
look back at the objects that were cre- 
ated in this program and give examples 
of how they can be reused in other 
programs. This article assumes that you 
are familiar with OOP in general, and 
that you have a knowledge of standard 
Macintosh data types and toolbox calls 
such as Point, Rect, LineTo, and Fra- 
meRect. 


The Network Graph Program 
The network graph program creates 


Steve has been a professional program- 
mer since 1983 and has written sev- 
eral programs that are available on the 
CompuServe Macintosh forums, includ- 
ing the Turing Machine Editor and 
Face Manager programs. He can be 
reached at 2314 Waverly, Kalamazoo, 
MI 49007 or through CompuServe at 
72330,111. 
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and manipulates a simple network 
graph. This program allows the user 
to create and remove vertices and edges, 
and to move vertices around. The graph 
is created in a window that allows scroll- 
ing in two directions, up to the current 
size of the page. The graph is created 
by using tools available in a pallet win- 
dow. For simplicity, the program doesn’t 
support such features as saving the 
graph to disk, and it doesn’t support 
the Edit menu items. 

The code for the section of the pro- 
gram that handles object types and 
method definitions is provided in List- 
ing One (see page 104). The execut- 
able program, complete code, and associ- 
ated MPW (Macintosh Programming 





Workbench) support files are available 
through DDJ or from the author. (See 
the author biography for more infor- 
mation — Ed.) 

OOP is really programming from the 
data up, rather than from the functions 
down. OOP strives to encapsulate the 
data of the problem and to define meth- 


| ods for manipulating that data. In the 


case of the network graph program, 
the first step in using OOP is to define 
the data object that you wish to create, 
which is a network graph. The mathe- 
matical definition for a graph is “an 
object created by two sets. The first set 
consists of vertices, and the second set 
contains edges.” From this definition, 
we quickly derive three different ob- 
jects: the graph, the vertices, and the 
edges. 

Digging a bit deeper into the defini- 
tion reveals that the vertices and edges 
are collected into sets. Pascal does not 
allow the use of nonscalars in sets. As 
a result, I used a linked list to imple- 
ment a set, and added two more ob- 
jects, GraphListand GraphNode, to sup- 
port the linked list. 

GraphNode is a fairly simple object — 
it only has a Next link. GraphNode's 
methods include Draw, DrawaAll, Erase, 
EraseAll, Free, and FreeAll. Free, which 
is similar to the example presented in 
the sidebar, erases the node and then 
frees it from memory. Draw and Erase 
are null and serve as place holders for 
the methods in the descendant objects. 

DrawaAll, EraseAll, and FreeAll de- 
serve a bit more attention. They use the 
Next link to pass a message to the next 
GraphNode in the list, and then call the 
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appropriate method. These methods 
use inherited code and allow only one 
method call to cause a complete re- 
draw, erasure, or freeing of a GraphList. 
Note that because the Next instance vari- 
able is a GraphNode, you can use Next 
in a reference to another method call. 


In order to add OOP to Pascal, Apple 


modified Pascal to create Object Pas- | 


cal (or Clascal — Class Pascal — as it 
was first called). These changes were 
made on the Pascal that was designed 
for the graphical-interface-based com- 
puter Apple was developing at the 
time: The Lisa. Even though the Lisa 
no longer exists, Object Pascal con- 
tinues to gain momentum. 

The major change to Pascal in Ob- 
ject Pascal is the addition of the Ob- 
ject type. In Object Pascal, the classes 
of OOP are defined in the Type decla- 
ration section as belonging to the Ob- 
ject type. The format for the Object 
statement is similar to the format for 
the Record statement, but the declara- 


tion of the Object statement contains © 


two additional parts: the Base Object 
and the Method declarations. The for- 
mat is shown in the railroad diagram 
in Figure 1. 

The Base Object enables the use 
of class inheritance in Object Pascal. 
To make a new object type a descen- 
dant of another object type, place the 
parent’s object type name into the 
parentheses. 

The method declarations in Object 
Pascal are similar to the forward pro- 
cedure and function declarations in 
Pascal. List the procedure or function 
declarations in the block, which is 
where new methods on this object 
must be declared. Optionally, an Over- 
ride statement may follow a method 
declaration in order to replace an in- 
herited method. 

Most implementations of Object Pas- 
cal include a base object type that 
provides some simple methods. For 
example, my Pascal compiler calls its 
base object TObject. TObject provides 
base methods for Clone and Free. 
Clone makes a copy of an object in- 
stance, and Free frees an object in- 
stance from memory. 

The code for each Object’s meth- 
ods must be included somewhere in 
the code section of the program. This 
is handled in a similar fashion to other 
procedure and function definitions, 
except that the procedure or function 
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Figure 1: Railroad diagram showing 
the format for the Object statement 


OBJECT PASCAL 


This approach is shown in the SELF. Next 
_EraseAll type statements, which read 
as: “Look at myself, get the Next in- 
stance variable’s value, and send that 
object instance the EraseAll message.” 


GraphList holds the head pointer of 


the GraphNode link list. This object 


Object Pascal 


name is prefixed with the Object Type ; 


name. Whenever instance variables 
are used in method definitions, the 
variables are prefixed with the spe- 
cial SELF reference. This prefix tells 
the compiler to use the values for 
those variables in the object instance 


that called this method. Listing Two 


(page 108) provides a sample Circle 
class’s type declaration and procedure 
definitions. Note that Circle inherits 
Clone and Free from TObject. 

You declare a variable that is to be 
used as an instance of the Object type 
in the same way that you declare a 
Record variable. The catch is that un- 
til a new instance is created, that vari- 
able doesn’t reference a valid object 


instance. The standard Pascal NEWO | 


procedure is used for creating an ob- 
ject instance. Once an object instance 
is created, the instance variables are 
referenced in the same way that Rec- 
ord variables are referenced. To call 
an object's method, prefix the method 
name with the instance variable. An 


example of declaring and using a Cir- 


cle object instance is shown in Listing 
Three, page 108. 

As the example program stands 
now, the circle will be drawn in a 


window even after the instance is — 


freed. If this result is not desired two 
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handles the special case of removing a 
GraphNode from the list, and also dem- 
onstrates code reusability. Because we 
need a list of Vertices and Edges, the 
creation of a GraphList object class cre- 
ates one common location for the list- 
manipulation routines. The GrapbhList 


options are available: Add a call to 
Circle.Erase before the call to Cir- 
cle.Free, or override the Free inher- 
ited from the TObject class. To imple- 
ment the second choice, use the Over- 
ride statement in the method dec- 
laration section of the Circle Object 
Type definition. 

Override provides a way to change 
an inherited method. Object Pascal 
also allows the new method to call 
the inherited method through the Jn- 
herited statement. The use of the /n- 
herited statement allows small changes 
to be made to a method, while leav- 
ing the inherited code available and 
contained in the parent object. Listing 
Four, page 108, adds a Free method 
to the Circle Object Type and shows 
how to use the Override and Inher- 
ited statements. Note the use of the 
SELF reference here to call another 
method for the same object instance. 
These changes cause the example pro- 
gram to erase the circle when the 
instance is freed. 

Through the use of inheritance and 
overriding, several related object types 
can have the same procedure name, 
such as Draw, and implement the 
procedure differently. This factor alone 
is a benefit, but it’s not the only 
strength of Object Pascal. Object Pas- 
cal also links each object instance to 
the object type methods so that it’s 
possible to create methods in the an- 
cestor of several types that can be 
implemented without making changes 
in the children. Listing Five (see page 
108) shows an example of this. 

You may already be noticing that 
Object Pascal does not support data 
hiding. This failure follows from the 
way that Pascal itself was designed. 
While the newer versions of Pascal 
provide some indirect data hiding 
through the use of Units, the instance 
variables are still available to the call- 
ing program. While I admit the im- 
portance of data hiding, I don’t feel 
an impact from its loss in Object Pas- 
cal. A lot of the benefits of data hiding 
can be realized through careful pro- 
gramming practices. — S.K. 
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device-independent graphics routines to enhanced laser-printing capabilities that 
forge new software, to create professional- work with the Mark III, beautifully, 
looking text and graphics the easy way. And the Toolkit fully supports key Mark 
That's why hundreds of developers have III features, so end users can work with 
created GDT applications that work on the the graphics display and input devices 


Mark III printer. they like best.What’s more, Canon’s exclu- 


Just press a key to reach into the Tool- sive EP-S disposable cartridge system 
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of high level graphics routines that speed maintenance-free performance. 
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advantage of all the vector and bitmap together, and all your graphics will look 
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(continued from page 18) 

object only contains a FirstNode in- 
stance variable. The methods include 
AddNode, RemoveNode, Draw, Erase, 
and Free. 

Draw and Erase make the process 
of redrawing a complete graph easier. 
These methods call DrawAll and 
EraseAll for FirstNode. Free also calls 
FreeAll for FirstNode, but then calls the 
inherited Free method in order to de- 
stroy the list object instance. AddNode 
and RemoveNode perform the manipu- 
lations on the list. AddNode takes as 
an argument a GraphNode object in- 
stance and makes this object the new 
FirstNode. RemoveNode also takes a 
GraphNode object instance as an argu- 
ment. RemoveNode finds and removes 
the appropriate GraphNode from the 
list. 

Note that the Vertex object type, 
which is maintained in a list, is based 
upon the GraphNode object type. There- 
fore, Vertex inherits the Next instance 
variable and the Draw, DrawaAll, Erase, 
EraseAll, Free, and FreeAll methods. 
Draw and Erase must then be overrid- 
den. Examine these overridden meth- 
ods and note that information about 
where the Vertex is centered and how 
large the Vertex should be made is 
required. For the network graph pro- 


gram, the Vertexis a circle with a radius 
of 10. This creates one new instance 
variable called Center. Draw and Erase 


Pascal does not allow 
the use of nonscalars 
in sets. Therefore, I used 
a linked list to 
implement a set, and 
added two more objects, 
GraphList and 
GraphNode, to support 
the linked list 





now create or erase the 10-point radius 
circle around Center. You could set the 
Center instance variable by accessing 
the instance variable itself. But in order 


Whoever said, 


to support the OOP methodology as 
best as possible, I’ve added a SetCenter 
method. 

Edge is directly related to the Vertex 
object type. Edge connects two Ver- 
tices. As a result, I've added two new 
instance variables, FromVertex and 
ToVertex. As with Vertex, Edge is main- 
tained in a list and GraphNode is the 
base object. Again, Draw and Erase 
have been overridden. Draw draws a 
line from the center of FromVertex to 
the center of JoVertex. To keep the 
Vertex objects looking clean, I modi- 
fied the Vertex Draw method to erase 
the circle and then frame it; the edges 
now start and end at the edge of the 
vertex frame. Erase sets the drawing 
pattern to white, and then calls Draw. 
This approach allows Draw to be modi- 
fied in descendant objects, while Erase 
continues to work unchanged. 

Edge also uses the SetFromand SetTo 
methods to erase the old Edge, and to 
redraw the FromVertex or ToVertex to 
which it is attached. Edge is dependent 
upon two Vertex instances, so if either 
of those instances move, Edge must be 
redrawn. An apparently simple solu- 
tion would be to modify the Vertex 
SetCenter method. But Vertex has no 
knowledge of which Edge instances 
are connected to it, so trying to locate, 
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NX. 


The OS for over-achievers’ 


QNX programmers have a decided advantage. 


You see, people who use QNX enjoy the 
freedom that comes only with a flexible, 
modular 0s. They appreciate the elegance 
of a message-passing architecture. And 
they marvel at the fact that QNX runs so 
lean—under 150K—yet out-performs any 
other PC operating system. 


QNX users never worry about whether their 
applications will make it at runtime, because 
they know QNx has proven itself again and 
again in the real world. 


It's no wonder that QNX users have achieved 
so much since the product was first released 
for the PC in 1982: over 80,000 systems 
installed in 47 countries world-wide, in all 
kinds of applications — from making cars 
to selling books to handling online credit 
card transactions. 


One reviewer dubbed QNx “The multi- 
everything Os.” Now, you might expect 


multiuser and multitasking, but realtime? 
And integrated networking? And true 
distributed processing? Best of all, these 
terms take on a new meaning with QNX. 


Multiuser, for instance, means up to 32 
terminals per micro. Multitasking 
cashes out as 150 tasks per machine. 
Realtime means not only priority-driven, 
preemptive task scheduling, but also speed: 
at 6,896 task switches/sec on a 16MHz 286, 
QNX is at least a full order of magnitude 
faster than a typical UNIX system. Inte- 
grated networking means you won't 
need yet another layer of software to set up 
a LAN, and you can use any mix of 
Intel-based micros —from vintage ’81 PCs 
to PS/2s. 


Distributed processing with QNx 

sounds too good to be true. But it is: Any 
task can access any resource — programs, 
files, devices, even CPUs —without going 
through the bottleneck of a central file server 


Besides the satisfaction that QNX developers 
get from using a fast, powerful, and flexible 
0S, did we mention that they also enjoy 
Sree technical support? 
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know all about this great 0s, you could try 
asking the over-achievers who are smugly 
guarding the secret of their success. 


Better yet, give us a call. We'll tell you 
everything you need to know to become an 
over-achiever yourself. 





For more information or a free demo disk, 
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(continued from page 20) 

erase, and redraw those Edge instances 
would force external knowledge into 
the object. Therefore, the Graph ob- 
ject, which has knowledge of Edges 
and Vertices, handles this problem. 

The Graph object is based upon 7TOb- 
ject. Graph consists of two sets, so it 
needs instance variables that point to 
its list of vertices and edges. We can 
start the method list with some obvious 
methods: Draw, Erase, Free (which is 
overridden), AddVertex, RemoveVertex, 
AddEdge, and RemoveEdge. Draw and 
Erase call the EdgeLlist and VertexList 
instances of both the GraphList object 
and the Draw and Erase messages. The 
order is important here, because I have 
designed the Draw methods for the 
Edges instances to be drawn first. Simi- 
larly, Free frees the EdgeList and then 
the VertexList. 

With each event, the Macintosh pro- 
vides the location at which the event 
occurred. This means that in the case 
of the AddVertex, AddEdge, Remove- 
Edge, and RemoveVertex, only the lo- 
cation of the mouse is available. Thus, 
these methods take a point as their 
argument. AddVertex adds a vertex at 
the specified location. 

Note that because the AddNode 
method of the GraphList object takes 
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a GraphNode as an argument, the Ver- 
tex object instance cannot be used di- 
rectly in the call. This is a result of the 
strict type constraints of Pascal, rather 
than a result of how Object Pascal is 
implemented. This limitation can be 
overcome by typecasting the object in- 
stance. This concept, which is borrowed 
from C, allows the compiler to accept 
the technique of sending a Vertex ob- 
ject instance to AddNode. This trick is 
required because I defined a common 
GraphList object, rather than defining 
VertexList and EdgeList, which would 
be identical except for what they are 
linking. The trick is required for the 
compiler only; the object instance is 
not modified in any way. 

AddEdge is very similar to AddVertex. 
Instead of taking a location, AddEdge 
takes two Vertex object instances and 
creates an Edge instance that links them 
together. 

kemoveEdge removes an Edge object 
instance. This means that we need a 
way to determine the Edge instance at 
a given point. Look ahead a bit and 
note that RemoveVertex also needs to 
locate an object instance based upon 
a location. To do this, we add Ptin- 
Node and FindNode to the GraphNode 
object type and add FindNode to the 
GraphList object type. The methods be- 
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long here because both descendant ob- 
ject types require it. PtlnNode returns 
True if the point is considered to be in 
the object instance, and returns False 
otherwise. GraphNode. FindNode checks 
if the point is in the present object 
instance. If the point is in the present 
object instance, GraphNode.FindNode 
returns itself; otherwise, the checking 
down the list. The GraphList.FindNode 
method initiates the search at the 
FirstNode of the list and returns the 
result. 

In order to support PtlnNode, we 
need to define the region covered by 
the object instance. I use the term “‘re- 
gion” on purpose, because the Mac 
Toolbox has a routine, PtlnRgn, that 
does the processing for us. To create 
this region, I added a new instance 
variable to the GraphNode object type, 
called Hotkegion. The SetRegion method 
creates the appropriate region. In the 
case of the Vertex object, this region is 
the circle that the Vertex creates on the 
screen. In the case of the Edge object, 
a region is created that follows the line 
but is eight pixels wide. 

The addition of HotRegion, which is 
location dependent, forces a change 
in some of the other methods. As the 
center of a Vertex instance or an end 
point of an Edge instance is set, the 
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ASCII Table 
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(continued from page 22) 

HotRegion must be recreated. I modi- 
fied SetCenter, SetFrom, and SetTo to 
reflect this requirement. Note that the 
Free method of GraphNode frees the 
region. 

After the support methods are added 
to GraphNode, Vertex, and Edge, we 
can return to RemoveEdge. This method 
first finds the Edge instance in which 
the point is located and removes that 
Edge from EdgeList. 

The RemoveVertex method is similar 
to RemoveEdge, but requires some ad- 
ditional support in the GraphNode and 
Edge object types. RemoveVertex first 
finds the Vertex instance in which the 
point is located. The method then re- 
moves all Edge instances that are con- 
nected to that Vertex instance. 

Finding all such instances can be done 
in this method or through a method 
on the Edge object. Because the list 
traversal logic has been isolated in the 
GraphNode object, I chose to add the 
finding logic into the GraphNode ob- 
ject but leave the instance removal in 
RemoveVertex. This approach involves 
the creation of Connectedand FindCon- 
nected methods in the GraphNode ob- 
ject type. The FindConnected method 
also must be included in the GraphList 
object type. In GraphNode, Connected 
always returns False; but the Edge ob- 
ject overrides this and returns True if 
Edge is connected to the Vertex in- 
stance. FindConnected finds the first 
connected instance in the list. 

These routines enable you to find 
and remove the Edge instances con- 
nected to a given Vertex instance. Once 
all the appropriate Edge instances are 
removed, the Vertex object instance it- 
self can be removed. 

At this point, the special processing 
required for SetCenter can also be im- 
plemented. To do this, a SetVertexCen- 
ter method was added to the Graph 
object type. The purpose of the addi- 
tional processing beyond the Vertex. 
SetCenter call is to find all of the con- 
nected edges, and to both erase these 
edges before and then redraw them 
after the SetCenter call. FindConnected 
allows you to move through EdgeList 
and find all of the connected Edge in- 
stances. The complexity of adding the 
special processing to the Graph object 
type, rather than to the Vertex type, 
makes the program much cleaner and 
more self contained. 

Two methods have been added to 
make the program conform more closely 
to the Macintosh interface guidelines. 
These methods allow a Vertex instance 
to be moved with the mouse and allow 
an Edge instance to be added with the 
mouse. 


The step of implementing MoveVertex 
in the Graph object is fairly easy. Given 
a point from which the move is start- 
ing, find the Vertex at the point. Use 
the Macintosh Toolbox routine Drag- 
GrayRegn to let the user pull the Hot- 
Region around the screen. I have sepa- 
rated the Mac-specific code into the 
DragRegion function, which is not in- 
cluded in the listings with this article 
(but is available online. If the drag is 
completed with a move, the new cen- 
ter of the Vertex instance is determined, 
and the Graph.SetVertexCenter method 
is called to move the Vertex instance 
to the new location. 

The code for LinkVertices is also 
straightforward. First, check the loca- 
tion to see if it contains a Vertex in- 
stance, and then call a DragGrayLine 
procedure to find where the mouse is 
released. If the mouse is released in a 
Vertex instance that is different from 
the first Vertex instance, then the 
Graph.Add-Edge routine is called to 
add the new Edge instance. DragGray- 
Line follows the mouse around the win- 
dow, trailing a gray line between the 
current location and the starting loca- 
tion until the mouse button is released. 
DragGrayLine then returns the loca- 
tion of the mouse. 


Reusable Objects 
GraphNode implements a linked list 
with some graphing methods associ- 
ated with it. GraphList maintains a list 
of GraphNode instances. The Vertex 
and Edge object types are based upon 
the GraphNode type, and implement 
the vertices and edges of the network 
graph. The Graph object is the actual 
network graph and provides methods 
to support and modify the graph in- 
stance. 

As written, the Graph object is some- 


-what restrictive. At the least, it allows 


several instances of network graphs to 
be handled by the same program. Graph 
can also be used at the base for addi- 
tional types of graphs, such as directed 
graphs, weighted graphs, and so on. 
One type of network graph that I 
want to mention is the Cartesian graph, 
which is what most people think about 
when you say “graph.” By placing ver- 
tices carefully, and adding edges that 
connect one vertex to the next one 
down the X axis, we can create a pro- 
gram that graphs a set of data points 
fairly quickly. By using several Grapb- 
based objects, several sets of data can 
be plotted in the same window. At the 
same time a separation of the sets can 
be maintained, which is useful when 
data sets are edited independently. 
Additional methods can be added 
to the Graph-based object to provide 
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for greater functionality. A method of 
traversing the graph, based upon some 
algorithm, is an example of this ap- 
proach. In fact, ’ve written a Turing 
Machine Editor that is based upon these 
objects. 

Note that objects such as the Vertex 
object type can be used in several ways. 
Many of these uses are listed indirectly 
earlier this article during the discussion 
of the Graph object type. Vertex can 
also be used as a base object type. 
Naturally, you can change the way in 
which the object is drawn. This change 
can give rise to different ways of show- 
ing each vertex in the window. The 
drawing method can even be selected 
by an instance variable in order to al- 
low a graph to contain several different 
types of vertices. If you create a Vertex- 
based class that doesn’t draw at all, then 
you have a way to generate line art. 
Note that many of these uses for Vertex 
type objects can be implemented within 
or without the Graph object itself. 

Edge is intimately tied to the Vertex 
class, so Edge can only be used in 
conjunction with that type. Still, vari- 
ations on this class can be useful in 
themselves. Such variations could in- 
clude different ways of drawing the 
edge, such as drawing the edge as an 
arc or a gray bar. 

Finally, the GraphList and GraphNode 
classes actually implement a list struc- 
ture for objects that are drawn, con- 
nected, and selected, so these classes 
provide many opportunities for reuse. 
Any program that creates or manipu- 
lates lists of graphical objects, such as 
an object-oriented drawing program, 
is a candidate for use of the GraphList 
and GraphNode object types. 


Availability 

All source code is available on a single 
disk and online. To order the disk, 
send $14.95 (Calif. residents add sales 
tax) to Dr. Dobb’s Journal, 501 Galves- 
ton Dr., Redwood City, CA 94063, or 
call 800-356-2002 (from inside Calif.) 
or 800-533-4372 (from outside Calif.). 
Please specify the issue number and 
format (MS-DOS, Macintosh, Kaypro). 
Source code is also available online 
through the DD/ Forum on Compu- 
Serve (type GO DDJ). The DD/ Listing 
Service (603-882-1599) supports 300/ 
1200/2400 baud, 8-data bits, no parity, 
1-stop bit. Press SPACEBAR when the 
system answers, type: listings (ower- 
case) at the log-in prompt. 


DDJ 
(Listings begin on page 104.) 
Vote for your favorite feature/article. 


Circle Reader Service No. 1. 
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Commenting Disassembler! 


SOURCER..486 [epeittptteentres 





SOURCER™ creates detailed commented source code and listings from memory 
and executable files. Built in data analyzer and simulator resolves data across 
multiple segments and provides detailed comments on interrupts and subfunctions, 
|/O ports and much more. Determines necessary assembler directives for reassem- 
bly. Includes a definition file facility to include your own remarks and descriptive 
labels, force data types, and more. Complete support for 8088/87 through 80386/387, 
80486, and V20/V30 instruction sets. We welcome comparisons with any other product, 
because no product comes close to the ease of use and output clarity of SOURCER. 


Sourcer is the best disassembler we've ever seen! 
—PC Magazine, January 17, 1989, page 101 


SAMPLE resetprn. Ist ResetPRN v1.02 Sourcer Listing 18-Sep-89 1:42 pm Page 1 
RESETPRN 
Fully : Created: 24-Aug-89 
. . Version: 1.02 
automatic . Passes: 8 Analysis Flags on: H 
Program a 
header @prn_port_1 > (0040:0008=378h) 
Assembler segment para usel6 public 
directives assume cs:seg a, ds:seg a, ss:stack seg b 
: resetprn proc far 
658E :0000 start: 
658E:0000 EB 23 j short loc_1 
658E:0002 52 65 73 65 74 50 "ResetPRN v1.02', ODh 
: 658E:0008 52 4& 20 76 31 2E 
Determines ate 
658E :0011 40h 
data aleaS 658E:0013 OD OA 52 65 73 65 ODh, OAh, ‘Reset Printer? $' 
658E:0019 74 20 50 72 69 6E 
and type 658E:001F 74 65 72 3F 20 24 
658E :0025 
; 658E:0025 OE 
Detailed 6586:0026 1F ds 
658E:0027 .BA 0013 dx,offset data 3 ; (658E:0013=0Dh) 
comments 658E:002A B4 09 
658E:002C CD 21 i ; DOS Services ah=function 09h 
; display char string at ds:dx 
/ 658E:002E B4 01 : 
Simulator 658E:0030 CD 21 i ; DOS Services ah=function Olh 
follows + get keybd char al, with echo 
658E:0032 3C 79 roy: 
segment 658E:0034 75 1A j short loc 3 ; Jump if not equal 
658E:0036 8£ 1£ 0011 ds,data 2 > (658E:0011=40h) 
changes 658E:003A 8B 16 0008 dx,ds:@prn_port_1 ; (0040:0008=378h) 
658E:003E 83 C2 02 dx ,2 
658E:0041 BO 08 al,8 
658E:0043 EE dx,al ; port 37Ah, printer-2 control 
80386 and + al = 8, initialize printer 
658E:0044 66! B9 00020000 ecx,20000h 
80486 658E :004A locloop 2: 
658E:004A 67! £2 FD locloop 2 ; Loop if ecx > 0 
support 658E:0040 BO OC al,0Ch 
658E:004F EE dx,al ; port 37Ah, printer-2 control 
; al = 0Ch, init & strobe off 
658E : 0050 loc_3: 
658E:0050 B4 4C ; re bey 
Easy to 658E:0052 CD 21 i ; DOS Services ah=function 4Ch 
; terminate with al=return code 
read resetprn 
seg a 
format 


stack seg b ---- 
segment para usel6 stack 
6593:0000 OOCO[FF ] db 192 dup (OFFh) 
stack seg bends 


end start 





(Source code output and inline cross reference can also be selected) 


BIOS SOURCE 


for PS/2, AT, XT, PC, and Clones 


The BIOS Pre-Processor™ with SOURCER provides the first means to obtain 
accurate legal source listings for any BIOS! Identifies entry points with full expla- 
nations. Resolves PS/2’s multiple jumps for improved clarity. Provides highly 
descriptive labels such as “video_mode” and much more. Fully automatic. 


SOURCER Commenting disassembler $99.95 UNPACKER™ Unpack packed EXE files and more $39.95 
SOURCER with BIOS Pre-Processor 139.95 ASMtool™ Assembly source analyzer and flowcharter 89.95 
Shipping & Handling: USA $3; Canada/Mexico $10; Other $15; CA Res. add sales tax; PS/2 trademark of IBM Corp. 


NOT COPY PROTECTED 30-DAY MONEY-BACK GUARANTEE 


If within 30 days of purchase you find our product does not perform in accordance with our claims, 
call our customer service department and we will gladly arrange a refund. 


For orders and information, call: 


ce 1-800-662-8266 


V COMMUNICATIONS, INC. 
3031 Tisch Way, Suite 802, Dept. DD4, SanJose, CA 95128 (408) 296-4224 
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malltalk/V ® PM. 
Think of tt as a bold, 
“seat-of-the-pants” solution 
that cuts to the heart of the 
OS/2 Presentation Manager 
complexity challenge. Thus 
unlocking the potential of this 
powerful operating system. 
With the introduction 
of Smalltalk/V PM, object- 


oriented programming 





Introducing Smalltalk/V PM. The 
to fulfill the promise of OS/2. 


moves out of the realm of mystery 
and into a new era of breakthrough 


applications that promises to be of 


legendary proportions. 
OS/2 PM is designed to push 






Developer’s Kit Missing? 





Is The Most Important Part Of Your 


OS/2 PM offers youa powerful, rich environment 
loaded with advantages like a Graphics Program- 
ming Interface (GPI), a LAN manager, multitask- 
ing, SQL, just for starters. And all of these 
components are accessible in a standard way using 
Smalltalk/V PM through Dynamic Link Libraries 
(DLLs). Combined with DDE (Dynamic Data 
Exchange), you can call and exchange data with 
other PM services or applications. Seamlessly. 
Now developers can write truly reusable compo- 
nents, which greatly increases their value. And 
you'll find Smalltalk/V PM the perfect “glue” 


between applications written in other languages. 


“user friendly” to a whole new level 
of sophistication. If you compare it 
to an orchestra, OS/2 has capabili- 
ties no ordinary assemblage of in- 
struments has ever dreamed of 


possessing. Yet to tap 





its potential, OS/2 






PM demands a con- 






ductor capable of true 







genius. [hat conduc- 
tor is Smalltalk/V 
PM. 

You'll tind Small- 
talk/V PM a perfect 


language for repre- 












senting and manipu- 






lating high-level 





information. Because 


you go from designing to prototyp- 
ing to delivering a completed appli- 
cation in one seamless step, you 
cleanly avoid the old costly “crash 
and burn” delays so common with 
languages born in the age of main- 


frames. 


UNLEASHING THE AWESOME 
POWER OF OS/2 PM 


Smalltalk/V PM. It helps stop 
the natural drift toward vaporware 
so common in software develop- 
ment today. It lets you dive right in 
and get to the creative parts with- 
out the usual grunt work. For ex- 
ample, if you want to ignore the 


complexities of understanding 


OS/2 PM details you can immedi- 


he 
Gordian Knot. 
A legendary case 
of complexity. It 
had baffled and 
stymied the best 
paebiite Me) masta 
ancient world 


Mitel cilaelstecse 


fast, seat-of-the-pants way 





the Great cut 
through the 
convoluted 
challenge with 
one bold, swift 
stroke of his 
sword. This 


“seat-of-the-pants” 


roy itis eye myel ate! 
aateleeyemaate 
prophecy that 
whoever 
Vibehyacee mate 
Far Colmmnorriceare) ets 


day rule Asia. 











“THIS IS THE RIGHT WAY 
TO DEVELOP APPLICA- 
TIONS FOR OS/2 PM. 

OS/2 PM is a tremendously 


rich environment, which 


makes it inherently complex. 
Smalltalk/V PM removes that 


complexity, and lets you con- 


centrate on writing great pro- 
grams. Smalltalk/V PM is the 
kind of powerful tool that will 
make OS/2 the successor to 


MS/DOS.” 


Bill Gates, Chairman 
Microsoft Corp. 


rogmmnntisiient | THE FIRST debugger simplifies ap- 
FULLY-COMPILED ication development 
SMALLTALK. - | 
ou in 
ieee. ee 
PM is fully compiled | tesponse when you im- 


it provides you with a 


more responsive envi- 


able to generate 


plement an idea. Our 


extensive user manuals 


ronment than ever 


before. Now you'll be 


and tutorials have 


earned us high praise. 


stand-alone applica- 


tions (.EXE). 


SMALLTALK/V PM. 
THE TALKING HAS 


ately start creating without any ALREADY STARTED. 


limitations on your efficiency. 


However, if you’re the curious 
type, we have tools called browsers 
to help you fathom the masterpiece 
called OS/2 PM. You'll also find 
our incremental program develop- 


ment capability and push-button 











“Digitalk’s Smalltalk/V PM isa 
masterful implementation of a clas- 
sical object-oriented programming 
language and a state of the art 


graphical user interface. Any pro- 


Smalltalk/V 
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grammer struggling with the com- 
plexities of Presentation Manager 
should take a close look at this 


product.” 
Charles Petzold, Contributing Editor, 
PC Magazine 
“Digitalk’s Smalltalk/V PM is 
dazzling! This product makes Pre- 
sentation Manager pay off.” 
Jeff Duntemann, Contributing Editor, 
Dr. Dobbs Journal 
“Smalltalk/V PM is an ex- 
cellent tool for rapid deliv- 
ery of prototypes which 
have all the functionality 
and user interface of acom- 
plete PM application.” 
Richard A. Landsman, 
System Architect, Lotus Development 
“Smalltalk/V PM _ from 
Digitalk is the greatest! ‘This is an 


incredible product.” . 
F.D. Hildebrand 


Editor-in-Chief, Computer Language 


‘THE BEST PM INVESTMENT 
YOU’LL EVER MAKE 


Smalltalk/V PM 


$499.95 


Prices and information on these and 
other Digitalk products are available 
on request: 

Smalltalk/V, Smalltalk/V 286, 
Smalltalk/V Mac 


Smalltalk/V. A product of Digitalk Inc., 
9841 Airport Blvd., Los Angeles, CA 
90045. For information or to find a dealer 
near you call: 


1-800-922-8255 
1-213-645-1082 


CompuServe 71361,1636 
FAX 1-213-645-1306 


Smalltalk/V is a registered trademark of Digitalk Inc. 
Prices subject to change without notice. 

Other product names are trademarks or registered 
trademarks of their respective holders. 





Writing Filters 


an Object-Oriented Language 





Object-oriented programming with Actor makes writing 


filter-type programs easy 





filter is a program that copies 
one file into another file while 
processing it in some way. Fil- 
ters are a common type of pro- 
gram. For example, you can 
think of a C language compiler as a 
filter, because it reads an input file (in 
this case, a C source program), pro- 
cesses it (translates it), and creates an 
output file (the object program). A list- 
ing generator is another example of a 


filter: It reads an input file, processes it }> 
by paginating it, and outputs it to a | 


printer. Because filters are a common 
type of program, they have a common 
structure. This article discusses how 
the facilities in an object-oriented lan- 
guage, such as Actor, makes writing 
filter programs easy, using several com- 
mon classes and methods. 


Object-Oriented Programming 

Object-oriented programming (OOP) 
treats a program as a set of objects, 
with the code and data that are needed 
to make an object exhibit appropriate 


Marty Franz is a software specialist for 
Allen Testproducts in Kalamazoo Michi- 
gan. He also is a free-lance author 
whose articles have appeared in nu- 
merous computer magazines. Marty is 
the author of Object-Oriented Program- 
ming featuring Actor published by Scott 
Foresman & Co., from which this arti- 
cle is excerpted. 
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Marty Franz 





behavior fused together in the program. 
By dividing a program into objects that 
embody both data and operations, the 
structure of the program more closely 
represents the structure of the problem 
being solved. As a result, object-ori- 
ented programs are more easily writ- 
ten, read, and maintained than pro- 
grams in a procedural language. 

The creation of abstract data types 
is an important task in object-oriented 
programming. This means the actual 
implementation of an object is encap- 





sulated by high-level operations. Ob- 
jects therefore have a clear separation 
into a public and private protocol. For 
example, a queue object that defines a 
public protocol based on the opera- 
tions of adding data to or removing 
data from the queue. The queue may 
be written as an array with separate 
variables (called “instance” variables) 
that maintain the first and last positions 
in the queue, but how this is done is 
private to the queue object. By adher- 
ing to the public protocol elsewhere 
in the program, you could later change 
the implementation of the queue (to a 
threaded list, for example) and not 
change the rest of the program that 
used the queue. 

Programming in an object-oriented 
language involves creating objects and 
then sending them messages to do 
things. Messages in Actor resemble func- 
tion calls in other programming lan- 
guages, but they are not. The first pa- 
rameter in the message is actually the 
receiver object of the message. The 
receiver object determines how to re- 
spond to the message. Different ob- 
jects can respond in different ways to 
the same message name, a property 
called “polymorphism.” Polymorphism 
allows many objects within a program 
to respond to the same common proto- 
col, which makes the program easier 
to understand. It also allows you to 
write more general, reusable code, be- 
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++ environment is no longer a creature of myth. 


( A production object database for applications written in the 
it C 


C++ was too good to be true, now’s the time to call Ontologic 
at 1-617-272-7110, or mail in the coupon below. We're going to 
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Introducing our Second Generation Object Database, ONTOS. make a believer out of you. 


The first and only real object database to support C++ that -— 
is deliverable and operational at customer sites today. | 
Fact is, because ONTOS is ideal for CASE, CAD _ | 
and CAM applications, Index Technology, the country’s | 
leading CASE tool provider, recently signed a product | 
agreement with Ontologic. As a result, Index Technology | 
will base all their future products on ONTOS. | 
This second generation object database fully sup- | 
ports and is 100% compatible with the C++ language. Itis | 
performance oriented, delivering 10-1,000 times the speed | 
of a relational database system, making it competitive with | 
custom-built databases. ONTOS's open architecture easily | 
integrates with your existing developmentenvironment | 
and supports industry standards including SOL. | 
Ifyou thought a production object database for = LL 


- T want the facts on ONTOS. 


[_] Please have a salesperson call. 


[_] Send me more information on your object database product right away. 
Mail coupon to: Ontologic, Inc., Three Burlington Woods, Burlington, MA 01803 (617) 272-7110 
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(continued from page 28) 

cause you don’t have to worry about 
the types of objects you’re dealing with 
as long as they follow the same public 
protocol. 

Within an object, methods are de- 
fined that determine how the object 
will respond to a given message. Meth- 
ods in Actor resemble functions or pro- 
cedures in C or Pascal: They have local 
variables and use control structures such 
as do-while and if-then-else. Blocks can 
be defined along with methods. You 
can think of these as methods without 
names that can be treated as separate 
objects and passed to objects as parts 
of messages. 

In most object-oriented languages, 
objects are organized hierarchically into 
classes. Classes descend from one an- 
other in a kind of family tree, with the 
most general classes being at the top. 
All classes have a common ancestor 
called the “grandfather class.” In Actor, 
the grandfather class is the Object class. 
The Object class specifies safe default 
behavior for all objects, such as what 
to do when an unknown message is 
received (in this case, print an error 
message). As subclasses descend from 
classes, they inherit the functions of 
their parent class. This allows the pro- 
grammer to use existing behavior in his 
new objects, specifying only what’s dif- 


initialize regular expression 

open input file 

open output file 

while not at end of input file 
read line from input 


process it 
end while 
close input file 
close output file 





Figure 1: Grep and Reviser have simi- 
lar main functions 


ferent for the new application. This 
“programming by difference” means 
that less duplicate code needs to be 
written. 

Actor provides a rich set of classes 
as part of the base language, including 
Boolean values (which are similar to 
Booleans in Pascal), files, Strings (simi- 
lar to strings in Basic but with a 16K 
character limit), and Ordered and Sorted 
Collections for data structures such as 
arrays and queues. Actor also provides 
a set of classes for conveniently creat- 
ing and handling Microsoft Windows 
objects, such as windows, dialog boxes, 
and scroll bars. Ill use the text-based 
objects in Actor only to demonstrate 
how inheritance and classes can make 
writing common utility programs much 
easier. 


Plan of Attack 

My goal in this article is to develop two 
filter programs using Actor classes and 
methods. The first program is an object- 
oriented version of the Unix utility grep, 
which searches for and prints all occur- 
rences of a regular expression in a file. 
(The word “Grep” is a twisted acronym 
for “globally search for regular expres- 
sion.”) I'll then extend Grep in order 
to replace the pattern with a new string. 
This second program is called Reviser. 
By using Actor’s inheritance wisely, the 
Reviser program will be extremely easy 
to write once Grep is working. 

By using a straightforward loop in a 
procedural language, you could sim- 
ply create a Grep function and a Reviser 
function and write both programs. This 
is a direct, but not very compact solu- 
tion. A close look at this problem re- 
veals the many similarities between the 
two programs. The most obvious is 
that the main function for both of them 
is the same, as illustrated in Figure 1. 

For Grep, the output file is the dis- 
play where you want to see the lines 
of text that match the regular expres- 


Character =§ Meaning 


match any character 
match the start of the string 
match the end of the string 





Table 1: Some special characters 


Character Meaning | 


match any character 
match the start of the string 


match the end of the string 

begin list 

end list 

exclude set of characters from match 





take next character literally 


Table 2: Characters in regular expressions 
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sion. For the Reviser program, the out- 
put file is another file that holds the 
revised text. The Reviser differs from 
Grep in its output file, and in the pro- 
cessing that’s done to each line. Grep 
searches the line for the expression 
and copies it to the output file if it 
matches, while Reviser goes a step fur- 
ther and changes it before copying it 
to the output file. 

As I said earlier, both Grep and Re- 
viser are examples of a filter, a program 
that reads an input file and filters it by 
some sort of processing into an output 
file. The input file can be filtered a 
character or a line at a time. For the 
purpose of this article, a line at a time 
is sufficient. 

Because this is such a common de- 
sign for a program, it’s worthwhile to 
first develop a Filter class of objects 
that can be used to write the Grep and 
Reviser programs with. Later on, you 
can add more types of filters using this 
class and save a great deal of code. 

Further, because the Reviser is so 
similar to Grep, you should be able to 
inherit most of its functions from Grep, 
add the part that uses change( — ), and 
send the output to a file instead of the 
display. This will save even more code. 

This approach will save the time and 
effort of developing both the Grep and 
Reviser from scratch. The first step is 
to develop the Filter class, and then 
develop the Grep so it uses a Filter. 
Most of the Grep can then be inherited 
in order to write the Reviser. 


The RegularExpression Class 

Before writing the Filter class, how- 
ever, let’s take a closer look at the 
problem of searching for strings in the 
file. This is an important, common func- 
tion in both Grep and Reviser. Search- 
ing for literal strings is easy, but also 
limiting at times. It would be useful to 
search not only for a literal string, such 
as Fred, but also for the four-letter words 
that begin with the letter “F.” This is 
especially true when editing programs, 
because you might have used “If” in 
one place and ‘if’ somewhere else. 
You want to be able to search for both 
by entering a single string expression. 

A convenient notation for these types 
of string searches exists, and can be 
implemented here. Borrowed from the 
Unix world, these are called “regular 
expressions.” You already use a regu- 
lar expression when entering a wild- 
card file specification in MS-DOS, such 
as DEL*.”, 

This regular expression format will 
be a bit more limited than that of MS- 
DOS, but still powerful, and will allow 
regular expression strings to contain 
normal alphanumeric characters, plus 
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To: Researchers 
and 
Developers 

Subject: Short Quiz 


How do you make your newly 
developed neural network part 
of your product? 


(11) Develop a network with a 
neural network simulator and 
write your own code to interpret 
and execute the results. 


C12) Start from scratch using a 
“Neural Network Language” and 
write your own development en- 
vironment. 


C13) Roll your own network and 
development environment from 
scratch. 


C14) None of the above! 


The answer is “4” - none of the 
above. NeuralWorks Professional 
II in conjunction with Designer 
Pack makes all other methods of 
neural development obsolete. The 
development environment 
(NeuralWorks Professional II) is 
seamlessly integrated with the 
deployment environment 
(NeuralWorks Designer Pack). It 
is easy to move back and forth 
between the two of them. You can 
try out as many networks and 
variations as you want. And when 
you're ready, you have a “C” pro- 
gram with a well-defined inter- 
face which will run identically to 
the network you proto-typed! 


UNDER THE SUN! 


NeuralWorks 


Professional II and 


Designer Pack 





NeuralWorks 

Professional II with 
Designer Pack 
The logical alternative 


Together with NeuralWorks 
Professional II, Designer Pack is 
the most elegant method for de- 
slgning, testing and deploying 
neural networks. The develop- 
ment blends naturally with appli- 
cation production. There is no 
need to learn special “Neural Net- 
work Programming Languages” 
which may be restricted to one or 
two special hardware systems. 
Build a network in a way that 
makes sense: graphically. Proto- 
type your interfaces with User 
I/O. Turn it all into useable appli- 
cation code with Designer Pack. 
Nothing wasted. No re-design. No 
re-learning. Simple. Elegant. 
Seamless. 


The sensible approach 
to neural network 
development. 


NeuralWorks Professional II 
and NeuralWorks Designer Pack 
are availableon the Sun 3, 4, 386i, 
N-Cube, MacIntosh, PC AT, XT, 
PS2 and compatible machines. 


Call TODAY or write for infor- 
mation about NeuralWare’s 
software, seminars, and custom 
engineering services. Ask for 
Jane Klimasauskas, Vice- 
President Sales and Marketing. 
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NovaCast Expert Systems 
Soft Center 

S-37200 Ronneby, Sweden 
Telephone: 011-46(457)718-30 


Informagice, S.A. 

Aveda, de Roma, 152 
Barcelona 08011 

Spain 

Telephone: 011-34(3)254-6235 


Electronic Associates Sarl 
25-27 Rue Ginoux 

75737 Paris Cedex 15 

France 

Telephone: 011-33(1)45770813 


Nichimen Data System Corp. 
Kyodo Building 

3-2, 1-Chome Nihonbashi-honcho 
Chuo-ku, Tokyo 103, Japan 
Telephone: 011-81(3)241-2611 


NeuralWare 
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Penn Center West-Bldg. IV, Suite 227 
Pittsburgh, PA 15276 

Phone: 412-787-8222 

Fax: 412-787-8220 
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Add lightning fast graphics to your programs quickly and 
easily through the popular PCX file format. Why reinvent the 
wheel? Make your programs immediately compatible with 
hundreds of packages from Aldus PageMaker to ZSoft’s PC 
Paintbrush with these linkable graphic libraries. 





“Well worth the investment" - Dr. Dobb’s, August 1989 

NEW! Version 3.5 of the PCX Programmer’s Toolkit gives you over 60 
powerful functions to manipulate bitmapped graphics. Use Virtual screens, 
Super VGA modes, LIM 4.0 support, a 300 page manual, 9 utilities including 
screen capture and display, and the fastest routines on the market. $195 


Need Special Effects, but caught ina GRASP? 
Why create a demo when you can create the real thing? Don’t be trapped in |. 
a slideshow editor or demo program when you can use PCX Effects for the |. 
PCX Toolkit and your favorite programming language. A Music Language |) 
and spectacular effects for exploding your graphics! $99 | 


Blazing Graphics Text 
With PCX Text you can display text with graphics as fast as it always should |, 
have been. Display characters, strings, fixed and proportional text, |) 
background transparency, and more. Includes a font editor, 85 fonts, and | 
text utilities for blazing graphics bitmapped text. $149 


All packages support 12 compilers for C, Pascal, Basic, 

Fortran, Assembly, and Clipper. All modes of the Hercules, O O Oo fe) 

CGA, EGA, VGA, and Super VGA adapters are supported, up 

through 800x600x256 (22 modes in all). Assembly Language =—§ = 
MIC R OP ROGRAM MIN G 


source code is optionally available. Trademarks are property 
of their respective holders. 11315 Meadow Lake e Houston, Texas 77077 e (713) 870-0737 


a Bake 
(NCA vCoore a 1 -800-227-091 8 
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People are talking about us. 


F77L-EM/32 F77L 
Port 4GB mainframe programs to 80386s The compiler of choice among reviewers and 
with this 32-bit DOS compiler. Winner of PC _ professionals. New Version 4.0 includes an 
Magazine's 1988 Technical Excellence Award. Editor, Profiler, Linker, Make Utility, Weitek 
$895* and 386 Real-Mode Support, Graphics. $595 

















F77L-EM/16 Lahey Personal FORTRAN 77 


Address up to I5MB on 80286s with this Full ANSI77, Microsoft C and Borland C 


rie winning extended-memory compiler. —_ interfaces, Debugger, at an unbeatable price. 
: $95 


: Requires DOS Extender ($195) 


Go ce? 


When people talk about FORTRAN e 
the name mentioned most often IS | Ginpersscen: Cy 


Contact us to discuss our products and your needs. (800) 548-4778 
Lahey Computer Systems, Inc. P.O. Box 6091, Incline Village, NV 89450 
Tel: (702) 831-2500 FAX: (702) 831-8123 Tlx: 9102401256 


FORTRAN IS OUR FORTE 
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(continued from page 30) 
the special characters (sometimes called 
metacharacters) listed in Table 1. 

For example, the regular expression 
Ff??? matches any string that started 
with the letter F and was followed by 
three characters. The regular expres- 
sion %F?77?$ matches any string that 
consists only of these characters, noth- 
ing else. 

You can match sets of characters by 
using the metacharacters [ ] to enclose 
a set. For example, the string F/aeiou/?? 
will match any four-character string that 
starts with the letter F and is followed 


The facilities in an 
object-oriented 
language such as Actor 
make writing filter 
programs easy, using 
several common classes 
and methods 


first by a vowel, and then by any two 
characters. If the first character in the 
set is tilde (~), then the remaining char- 
acters enclosed by [ ] are excluded from 
matching. For example, the string F/~ 7i/?? 
matches any strings that start with F 
but are not followed by r or i. Sets can 
include ranges of characters: For exam- 
ple, the set /A-Za-z/ matches all the 
upper and lowercase alphabetic char- 
acters. 

When searching for strings that con- 
tain metacharacters, a backslash ( \ ) 
will specify one of the other meta- 
characters literally afterwards. Table 2 
provides the complete list of meta- 
characters supported. 

This is an ambitious project, but the 
rewards will be worth the effort as the 
use of this class can add efficient pat- 
tern matching to virtually any text- 
based program. The key, however, is 
to make the pattern allow for fast search- 
ing and compact representation. 

Although it’s tempting to use one of 
the predefined Ordered or Sorted Col- 
lection classes in the Actor language 
when writing this class, this is slow and 
wasteful of storage for large patterns 
and requires a lot of searching. The 
best approach is to encode and embed 
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If You Want lo Talk 
Fast DBMS 





Call 1-300-db-RAIMA 


And Start Screaming 


You'll be screaming, all 
right. db VISTA III from 
Raima Corporation 
combines the flexibility of a 
relational DBMS and the 
lightning speed of the 
network database model. 


db VISTA IIL is 





Programmers. 
Source code available. The 
interactive database utilities and 


outstanding documentation make 


db_VISTA III easy to learn. All 


applications are portable to VMS, 


UNIX, OS/2, MS-DOS, even 
Macintosh. No royalties. 


db_VISTA III is Fast. Using 
benchmarks originated at PC Tech 
Journal Laboratories, db_ VISTA 
Ifl measured 3 to /2 times faster 


than the average relational 


database! Call us and we’ll send 


you the results. 


Relational and Network 
Model Technology for 
rogramming Flexibility. 
etrieve a record fast using the 
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and all related records can be 
immediately available using the 
network model. You decide how 
to combine these for best 
application performance. 


SQL Support with 
SQL-based db_QUERY, 
db_ VISTA III’s rela- 
tional query and report writer. 


db_ VISTA Puts You in 
Some Fast Company. 
Thousands of C programmers in 
over 50 countries worldwide use 
db_VISTA III, including 
APPLE, ARCO, AT&T, EDS, 
Federal Express, Hewlett- 
Packard, IBM, NASA... 





Don’t wait. Call Raima for more 
information about how you can 
build applications that are 
screaming-fast! 


Call 1 
(That's 1- 
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(continued from page 32) 

the characters shown in Table 2 as 
control characters in the pattern string. 
This allows the encoded patterns to 
be stored anywhere a String can be 
stored, and searched rapidly with char- 
acter-by-character comparisons. 

I call this class RegularExpression. It 
contains a String as an instance vari- 
able (the encoded pattern), and a 
Boolean that determines whether the 
case of an alphabetic character is sig- 
nificant. You must immediately write 
several methods that access the instance 
variables without resorting to dot nota- 
tion: setPattern() allows you to send 
a previously encoded pattern to the 
kegularExpression as the new pattern 
to use, and setCaseMatch( ) allows you 
to set the Boolean instance variable 
that determines if upper and lowercase 
versions of the same character are to 
be treated as equal. So you can save 
an encoded pattern for later use, pat- 
tern( ) will return the pattern instance 
variable. This allows a single RegularEx- 
pression instance to handle multiple 
patterns. 

The first hurdle is encoding the pat- 
tern. This is done by makePattern( ). 
It loops through the String that is the 
regular expression, building another 
String that is the encoded pattern. When 
it finds a metacharacter in the source, 
it places a control character into the 
pattern that will be used later for com- 
parisons. These control characters are 
kept in a header file called REGULARE.H 
(see Listing One, page 112) and can 
be changed later if necessary. 

Building the pattern is a big job. It 
requires another message, fi//Set( ), which 
takes a set enclosed in [ ] and encodes 
it. Use an INCLUDE_SET or OMIT_SET 
character for the set delimiter (depend- 
ing on whether the characters that fol- 
low match), followed by a character 
that is the number of characters in the 
set, and then by the characters them- 
selves. If a - (hyphen) was used to 
indicate a range of characters, such as 
A -Z, this set is expanded and copied 
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into the pattern string. This is done 
when the pattern is built, and it won't 
be repeated when matching is per- 
formed because this would slow down 
the program considerably. A sample 
encoded pattern is shown in Figure 2. 

Though this seems like a lot of 
trouble, the result is that you can com- 
pare a String against a pattern in a 
running program by characters only, 
which are efficiently handled. There is, 
however, a limit of 255 characters in a 
set enclosed by [], because that’s the 
largest count you can place in a single 
character. 

The comparison of a RegularExpres- 
sion against a String is handled by 
match( ). It calls aMatch(), which 
matches the encoded pattern against 
every possible substring in the source 
string. If case matching is enabled (case- 
Match is non-nil, then match() con- 
verts the pattern and source to upper- 
case before calling aMatch. The method 
aMatch() in turn calls oneMatch( ), 
which matches a single character in the 
pattern against a single character in the 
string. When a comparison fails, one- 
Match( ) fails, and aMatch goes on to 
the next string. 

Because of the way the pattern is 
encoded, a control character always 
determines what type of comparison 
to perform. Even a single character has 
an A_CHAR control character preced- 
ing it, which directs oneMatch() to 
compare it against a single character 
in the source. As a result of this prop- 
erty, oneMatch( ) can use a select/case 
statement to handle each type of con- 
trol character. Two instance variables, 
arrow and cursor, hold the indexes of 
the source string and the pattern dur- 
ing the matching process. 

In Actor, constants such as A_CHAR 
can be,placed in separate files for eas- 
ier maintenance, just as in C. For the 
kegularExpression class, the header file 
is called REGULARE.H. The header file 
and class file for this class are in Listing 
Two (page 112). 

You can test this code by first load- 


Match any 
Character 


Set Elements 


Number 
of 
Characters 


Figure 2: Encoding a regular expression 
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Character 





ing the header file and the class file, 
then typing: 


Fred := new(RegularExpression, "F???"); 
match(Fred, "My name is Fred"); 
11 


If the pattern was found in the source 
string, I could have simply returned 
true or false. Instead, match( ) returns 
the position in the source string where 
the match occurred, or nil if it didn’t. 
Including this extra touch allows the 
source string to be edited. The other 
methods in RegularExpression make the 
change( ) method easy to write and 
allow a string matching the pattern to 
be replaced by another: 


change(Fred, "My name is Fred", "Sam"); 
My name is Sam 


The search-and-replace function of a 
word processor or text editor becomes 
easy to write with a RegularExpression 
class. 


The Fifer Class 

It’s important to be able to create and 
compare regular expressions before mov- 
ing on to the Filterclass. Looking at the 
structure of a filter program, (including 
Grep and Reviser) we can see it follows 
the general design shown in Figure 3. 
The phrases “initialize processing,” “pro- 
cess line,” and “terminate processing” 
will vary from program to program. 
Also notice that the input and output 
files from the previous iteration of the 
design have now become objects. Poly- 
morphism allows an object to be used 
in place of an input or output file as 
long as it obeys the protocol of a File, 
adding even more generality to the idea 
of a Filter. 

In order to change the parts of the 
Filter that will vary from program to 
program, blocks can be used to pass 
the class-independent processing parts 
to the Filter. This design requires three 
blocks, one for each of the processing 
phrases. The first is initBlock, because 
it receives control before the input and 
output files are opened. Its job is to 
initialize anything needed by the ob- 
ject using the Filter. The second block 
is processBlock. It receives the string 
read from the input object, plus the 
output object, and does whatever pro- 
cessing is needed by the Filter. The 
third is closeBlock, which is called be- 
fore the input and output objects are 
closed. It performs any cleanup and 
termination the Filter needs. 

The file for the Filter class is in List- 
ing Three, page 114. The nun(_) method 
actually does the Filters processing, 
according to the design in Figure 3. It 
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also calls checkError() at the proper 
times to ensure that the input and out- 
put objects are opened correctly, and 
that the end of the input object hasn't 
been reached. 

Like the RegularExpression class be- 
fore it, the Filterclass is not particularly 
useful by itself — it needs a Grep class 
to take advantage of the Filters gener- 


ality. 


The Grepand Reviser Classes 
The Grep class will be a descendant of 
Object, because it must use behavior 
from three other classes: Files, Regu- 
larExpressions, and Filters. If Grep is 
made a descendant of one of these, the 
others will lend a lot of code and un- 
wanted behavior. Make it a unique class 
and use all three of the other objects 
as instance variables. 

The goal of the Grep class is to create 
a Filterand provide it with the initBlock, 
processBlock, and closeBlock needed to 
search a file for a regular expression, 
and to print the lines that contain it. 
Formulating the blocks is easy: The 
blocks will simply call the start(), pro- 
cess(_), and finish() messages in the 


initialize processing 
open the input object 
open the output object 
while not at end of input object 
read a line from input object 


process line 
end while 
terminate processing 
close input object 
close output object 





Figure 3: Structure of a typical filter 
program 


Grep class. Deciding what these three 
messages should do takes a bit more 
time. 

The finish() method is the easiest. 
It simply prints a count of the lines that 
were found in the file. It doesn’t even 
have to do that, but this is easily ac- 
complished with an instance variable 
(called matches) that keeps a count of 
the lines that match. 

The start() method opens the input 
file that was passed as an argument 
when the Grep object was initialized 
with init(). It also prints a message 
that tells the user that the program has 
started, and lists the name of the file 
being searched. 

The process( ) method takes the string 
read from the input file and compares 
it against a RegularExpression pattern 
held in an instance variable. If it matches, 
it prints the line with printLine( ) and 
increments the matches instance vari- 
able. If not, it doesn’t do anything. 

Finally, the init( ) method is respon- 
sible for setting up the Filterand Regu- 
larExpression objects and the blocks 
that the Filter will use. Two other in- 
stance variables are initialized by init( ): 
fileName, which holds the name of the 
file being searched, and pattern, the 
RegularExpression used as the search 
pattern. 

Three other messages in this class 
might puzzle you. They are: create( ), 
close( ), and checkError( ). All return 
self, These are here because the Filter 
object treats the Grep object as the out- 
put file. The output isn’t being written 
to a real file, but to a Grep object that 
checks the lines read from the input 
file against the regular expression. For 
this deception to work, the Grep class 
must support the File object’s public 
protocol, even down to checkErrorv ). 


i ee eee EO ET 


ARegularExpression:setPattern 
7RegularExpression:init compij 
aRegularExpression: patternSiz@g 

)RegularExpression:fillSet coy File 
|7RegularExpression: makePatter€ 


| Demos! 


Edit 


Cleanup! Show Room! 


Browse! 
Templates 


Boit! Inspect! 


Utility 


=» Bioad( classes \regulare.cls’'): 


aFilter:init compiling... 
2436 bytes used. 

#15718 bytes available. 
eGrepClass:run compiling... 
AGrep:close compiling... 
aGrep:checkError compiling... 
HGrep:create compiling... 
aGrep:finish compiling... 
7Grep:process compiling... 
aGrep:start compiling... 
aGrep:init compiling... 
29608 bytes used. 

215138 bytes available. 
mSearching file: readme.txt 
The Whitewater Group 


)SourceFile(“classes\regulare.cls’’) 
Hload("‘classes\filter.cls"); 
ASourceFile("classes\filter.cls*’) 
Sload("classes\grep.cls*'); 

7 SourceFile(‘classes\grep.cls*’) 


leah “readme.txt, “[—Ww]hitewater'’); 


The newest version of this file will always be present on The Whitewater 


2 lines matched es 


Figure 4: Sample Grep output 
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devoted exclusively to object-oriented 
programming. 
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minute product releases. 
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field. 


Order today 
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Because these messages don’t have to 
do anything (the Grep has already been 
created, and it can’t be closed), they can 
return self This isa common technique 
in object-oriented programming, another 
use for fall-through methods and poly- 
morphism: Making one object obey the 
protocol of another so they can be 
used interchangeably. The Grep class 
file is shown in Listing Four, page 114. 

A new() method is defined in this 
class that will allow you to create and 
initialize a Grep with a single message, 
with which you specify the name of the 
file and the regular expression to search 
for as arguments: 


run(Grep, "README.TXT", "[Wwhhite- 
water"); 


The sample output from Grep is shown 
in Figure 4. 

Reviser can now be written. Most of 
Reviser is already done, because it does 
the same thing as Grep except the pro- 
cess( ) method. In a Reviser, the line 
read from the input file must be searched 
using match(), then changed if the 
pattern is found, and then written to 
the output file in either case. Therefore 
Reviser should be a descendant of Grep. 

The output file needs instance vari- 
ables for its name and object, and an 


HAVING TROUBLE 


Why would a leading maker of dedicated disk emulators 
recommend that each user have a hard disk? 


SemiDisk System's Blue Flame II can give you a new perception 
of your personal computer. We know about those disk-intensive 
application programs that provide certain “fringe benefits” such as 
extended coffee breaks and daily paid vacations. Thumb-twiddlers 
won't like the Blue Flame II. 


If, however, the time lost to disk-intensive operations represents 
lost productivity and money, you're going to love what the Blue 
Flame II can do for you. 


The Blue Flame II is a dedicated disk emulator. It looks to your 
computer like an additional disk drive. A drive with a big difference: 
It's extremely FAST! Our Blue Flame II models are available in 
sizes from 2 to 8 megabytes per single-slot card. Multiple cards 
can be used together to form logical drives of up to 32 megabytes 
each. Add our Battery Backup Unit and you'll have a non-volatile 
drive that can’t be beat. Call or write for benchmark data compiled 
with PC Magazine’s Benchmark tests. 


So with all this speed, size and non-volatility, why do we 
recommend a hard drive? Because even as slow as they are, they 
still make an excellent backup device. Hard drives, or even 
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the front of your computer. 


Blue Flame II prices start below $800. Blue Flame II cards with 
Capacities under 8 megabytes are field upgradable in 1 megabyte 
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on SemiDisk products for S-100 and Epson QX-10/QX-16. 


SemiDisk Systems, INC. 


P.O. Box GG 


Beaverton, Oregon 97075 
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instance variable for the text that’s go- 
ing to be substituted when the pattern 
is found. The other instance variables 
will be inherited from Grep. 

The start() and finish() messages 
use the Grep versions of these mes- 
sages and do their own unique pro- 
cessing. Early binding notation indi- 
cates that the Grepversion of start should 
be called: 


Astart(self:Grep, inFile); 


In the Grep class, the create(_), check- 
Error( ),and close(_) methods didn’t have 
to do anything, because the output file 
was really a Grep. In Reviser they have 
to function as File methods, and are 
passed on to the Fileclass by the newFile 
instance variable. 

With inheritance, the code for the 
keviser is even shorter than for the 
Grep. The class file is shown in Listing 
Five, page 115. The Reviser inherits the 
run( ) message from Grep, so it can 
be used with a single message: 


run(Reviser, "README.TXT", "[Fflred", 
"Sam”"): 


Though building the RegularExpres- 
sion and Filter classes took a while, 
Actor’s polymorphism and inheritance 
can now be used to write tools such 
as Grep and Reviser easily. Both of 
these utilities take much longer to de- 
velop in procedural programming lan- 
guages, because the functions of the 
Filterand Grep classes cannot be easily 
separated. 


Availability 

All source code is available on a single 
disk and online. To order the disk, 
send $14.95 (Calif. residents add sales 
tax) to Dr. Dobb’s Journal, 501 Galves- 
ton Dr., Redwood City, CA 94063, or 
call 800-356-2002 (from inside Calif.) 
or 800-533-4372 (from outside Calif.). 
Please specify the issue number and 
format (MS-DOS, Macintosh, Kaypro). 
Source code is also available online 
through the DD/ Forum on Compu- 
Serve (type GO DDJ). The DD/ Listing 
Service (603-882-1599) supports 300/ 
1200/2400 baud, 8-data bits, no parity, 
1-stop bit. Press SPACEBAR when the 
system answers, type: listings (ower- 
case) at the log-in prompt. 


DDJ 
(Listings begin on page 112.) 


Vote for your favorite feature/article. 
Circle Reader Service No. 2. 
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Change is the enemy of procedural programming. Altering 
one aspect of a program can take weeks. And while you redesign, 
recode and retest, you spend huge sums of money and sacrifice irre- 
trievable market opportunities. 

Unfortunately, change is inevitable, and survival depends on 
your ability to adapt. That's not just a cruel law of nature. It’s a hard 
fact of business. 

It’s time that programming, too, embraced change. 

The time has come for Objectworks, the object-oriented devel- 
opment system from ParcPlace. 

Objectworks for Smalltalk-80 and Objectworks for C+ + 
provide the tools to create and deliver programs designed to work in 
the fast-moving, ever-changing world of business. 

More and more companies are evolving to Objectworks for 
designing commercial applications. Because designing for the future 
means designing for change. 


Objectworks. 


Objectworks for Smalltalk-80, circle 308. Objectworks for C++, circle 379. 


ParcPlace products are available on 80386 MS-DOS, Sun, Macintosh, DECstation 3100 and HP-9000 Series 300. 
Smalltalk-80 and Objectworks are trademarks of ParcPlace Systems, Inc. All other brands are trademarks of their 
respective holders. ©1989 ParcPlace Systems, Inc. 


A Home Brew 


C++ Parser 


Designing your own C++ compiler 


begins with a good parser 





hen it comes to C++, still 

relatively few tools are avail- 

able. This fact is never more 

apparent than when you 

need a cross-reference util- 
ity. If, for instance, you want to exam- 
ine the function foo( ), you'll discover 
that the function could appear any- 
where in your program. In other lan- 
guages, it’s simple to find a function by 
using a text-search utility, but func- 
tions may be overloaded in C++ — 
you might find seven functions named 
foo(). You must then know which of 
those functions might be in scope. In 
order to do so, you need to know 
about the class hierarchy. In addition, 
you may need to know the types of the 
parameters. 

That is usually no big deal — but in 
extreme cases, for example, you might 
not know that adding a Windmill and 
an int generates a result of type excep- 
tion_node. In short, you have to parse 
the entire file down to the primitive 
level, maintain a symbol table, and fig- 
ure out class relationships — you prac- 
tically have to compile the program! 

For the purposes of this article, [’ll 
describe a parser generator. A table- 
driven parser, such as Paul Mann’s LALR 
Parser Generator, takes a statement of 
the grammar (see CPP.GRM, Listing 


John is a free-lance writer and soft- 
ware developer. His upcoming book: 
Advanced C and Object-Oriented Pro- 
gramming, (VIS) will be released in 
mid-1990. He can be reached at P.O. 
Box 867506, Plano, TX 75086; or on 
CompuServe at 74060, 3717. 
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One, page 116), and produces tables. 
So, let’s start with the grammar. 


How’s Your Grammar 
The grammar specification is really a 
language-design language. As the source 
is being parsed, the parser calls actions 
in the program. This can be viewed as 
an event-driven machine. The parser 
sends messages to the rest of the pro- 
gram. The way n which the grammar 
is specified determines what messages 
are sent, when they are sent, and in 
what order. This is the key to using 
LALR to bnild a full parser program. 
Look « the grammar in the declara- 
tion lass. A declaration starts with a 
sto.ge class, followed by a type and 
the item being declared. In addition, a 


declaration contains asterisks, paren- 
theses, and brackets, as well as key- 
words such as near, far, const, and 
volatile. The basic form of the declara- 
tion is shown below: 


Declaration > StorageClass Type 
Declarator ; 


A declarator can be a simple name, or 
it can be another declarator modified 
by adding “( )” function call),“[]” (vec- 
tor), ‘“*” (pointer), or “&” (reference) 
symbols. 

A declarator is put together in very 
much the same manner as an expres- 
sion. A declarator contains operators 
with different levels of precedence, 
along with parentheses used for group- 
ing purposes. So, the grammar for dec- 
larations can be modeled on the gram- 
mar of expressions. 


Productions 

In order to achieve the right order of 
precedence (including the use of pa- 
rentheses for grouping purposes) you 
need three levels of productions. The 
innermost level (Dec/3) is the simple 
Dname. The next layer (Dec/2) is postfix 
operators “( )” and “[ J.” The outermost 
level (Declarator) is prefix operators 
“* and “&.” To provide for grouping, 
the innermost layer can start over again 
with a declarator in parentheses. The 
three levels of productions are shown 
in Figure 1. 

ReachAttribute is either a near or far 
keyword, or is empty. Const/Volatile? 
is the keyword const, the keyword vola- 

(continued on page 43) 


Dr. Dobb’s Journal, December 1989 











[+ Supports MS/DOS? OS/2°XENIX? ~ 
UNIX? VMS™ Primos? AOS/VS? vost 
MPE/XL? iRMX® _ 

(4 Links to Informix? INGRES? Oraclet _ 
Rdb? Share Base™ soe ee 

Server; Sybase? xaos 





asin 





FINALLY, 
A DEVELOPMENT TOOL 
THAT WON'T LEAVE 
YOU OUT ON A LIMB 


Applications should be on the cutting edge, not on the 
brink of disaster. With ever-changing requirements and 
deadline pressures, you need a development tool that won't 
leave you hanging. & Reach for JAM, a powerful user 
interface management system that delivers full-featured, 
portable applications quickly and affordably. oa With 
JAM, you’re in control. There’s no need to worry about tedi- 
ous front-end coding—JAM does it for you. You can create 
applications with the sophisticated features your users 
demand. Mix text and graphics, pop-up windows and pull- 
down menus—all without sacrificing performance. 
> JAM applications are fast and efficient because pro- 
cessing routines are written in standard third generation 
languages. And, you'll never have to worry about convert- 
ing your applications to a new system, because JAM is 
hardware, software and database independent. Boe JAM 
does it all, from prototyping and designing polished applica- 
tions, to incorporating graphics and linking with databases. 
So stop hanging around. Great-looking portable applications 
are Within your reach. > To receive a free demo diskette 
and find out more about the JAM family of software 


products, call our toll-free hotline today! 


300-453-3313 


In NY, call 212-267-7722 or FAX 212-608-6753 
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MS-DOS 386°486 


Can your C compiler handle this? 


/* sort one million 
data points */ 


int A[1000000] ; 
gsort (A, 1000000...) ; 





MetaWare’s 

High C® and \ Practically every 386 
Professional \ protected-mode 
Pascal ~ — MS-DOS program 
the first C and Pascal compilers to available is done with MetaWare’s High C 
generate 386 protected-mode code for or Professional Pascal. 


MS-DOS. And the compilers them- 
selves can run in protected mode, giving 
you the power to create large programs. 


Industry leaders such as 


¢ Autodesk — AutoCAD 
¢ Borland — Paradox 386 


Does your current compiler give you 32- ¢ Fox Software — FoxBase+/386 

bit code? Arrays up to 4 gigabytes? 387 ¢ IBM - Interleaf Publisher 

in-line transcendentals and Weitek sup- * Wolfram Research — Mathematica 

port? MetaWare’s ANSI compilers and and more use MetaWare’s compilers to 
Phar Lap’s 386|DOS-Extender let you get dramatic increases in performance. 

expand to the 32-bit registers and Don’t let your 386 power go to waste! 


address space of the Intel 386 and 486. 


New Release! Version 1.6 includes Call now for your 386 compilers and 

¢ Expanded MetaWare library with many DOS extenders: (408) 429-6382. 
Microsoft-compatible functions 

¢ New make utility ” 

¢ One-step compile and link driver Vi W 

¢ Sterling Castle’s BlackStar 386 library et a a re 

¢ Sterling Castle’s BPT Plus b-tree INCORPORATED 


¢ GFX/386 graphics routines 


¢ EC and MicroEMACS editors C ler Products f 
¢ DOS Helper UNIX-like utilities hs an alot 


Professional Software Developers 
2161 Delaware Avenue « Santa Cruz, CA 95060-5706 « Phone (408) 429-META(6382) « FAX (408) 429-WARE(9273) 


MetaWare, High C, DOS Helper, and Professional Pascal are trademarks of MetaWare Incorporated. Other products trademarks of their respective companies. ©1989 MetaWare Incorporated. 
* MIPS magazine, October, 1989. See articles on 80486, YARC 29000, and 386 Great Performers. 
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(continued from page 40 ) 
tile, neither, or both. ReachAttribute 
appears immediately to the left of the 
item that it modifies (in this case a 
pointer or reference). The const key- 
word appears just after a ‘“*” (or “&’) 
to indicate that the item that is pointing 
is constant. 

So, how does this triple-decker defi- 
nition work? Consider the test case *x//. 
The ‘“*” is read, and matches the sec- 


A type_node can refer 
to a simple type such 
as int or char, or to 
fancy types such as 
arrays and pointers 





ond line of the declarator. So x// must 
match the rest of that line, which is 
expecting another declarator. Because 
the “*” is in the outer level and the “{]” 
is in the inner level, the ‘“*” has prece- 
dence. Now x// doesn’t look like any- 
thing under declarator, but a declarator 
can be a Decl2. If this is a Decl2, it can 
be turned into a declarator when it is 
finished. And sure enough, Decl3 [/ is 
listed under Decl2. The xmatches Decl3, 
and an action is triggered. Then the 
Decl2[/ is finished, and an action is 
triggered. Now the ‘“*” declarator is fin- 
ished, and another action is triggered. 

Consider the order in which the pro- 
gram receives its actions — the name 
x, the modifier Vector, and the modifier 
Pointer. Notice that the order of prece- 
dence is built into the grammar, and is 
the only order possible. 

The grammar sends the modifiers in 
the correct order to the program. The 


Declarator 
-> Decl2 


program builds a representation of the 
object in response to these messages. 


Keeping Track of It 

All of the information about the source 
being processed is kept in nodes. Dif- 
ferent kinds of nodes are derived from 
a base class node (Listing Two, NODE 
HPP, page 116). One of the derived 
nodes is a type_node. A type_node can 
refer to a simple type such as int or 
char, or to fancy types such as arrays 
and pointers. These fancy types corre- 
spond to the four modifiers. As a result, 
your code contains an array of <some- 
thing>, a function that returns <some- 
thing>, a pointer to <something>, and 
a reference to <something>. If the pri- 
mary type is one of these four modi- 
fiers, the to_what field points to an- 
other type node. In this way, compli- 
cated types are stored in a linked list. 
The type_node::print() function in 
NODE.CPP shows this structure clearly. 

All of the actions called by the parser 
are in the file ACTIONS.CPP (Listing 
Three, page 118). The actions are de- 
fined with an ellipsis so that the C++ 
compiler will generate right-to-left pass- 
ing with the caller clearing the stack, 
which is what the parser (written in C) 
is expecting to call. 

The working_type structure contains 
all of the information about the item 
being parsed. The first message is for 
the storage class, which is stored for 
future reference. The next item in work- 
ing_type is the type, which is also stored. 
A const (or volatile) keyword can ap- 
pear on either side of the type. (Notice 
that the action is called even if the 
production is empty.) As a result, a pair 
of calls to the ConstVol action take 
place. ConstVolcan be called in several 
places, so these calls simply stack the 
values received. The purpose for Const- 
Vol is recognized later, and the values 
for this addition are popped from the 
stack when it is ready for them. 


-> ReachAttribute * Const/Volatile? Declarator 


=> TypeModifier 3 


-> ReachAttribute & Const/Volatile? Declarator 


Decl2 


-> Decl2 ( Arg-Declaration-List ) 


-> Decl2 [ ConstExp? ] 
-> Decl3 


Decli3 
-> Dname 
-> ( Declarator ) 


=> Dname 1 





=> TypeModifier 4 


=> TypeModifier 1 
=> TypeModifier 2 


Figure 1: Productions used to determine the order of precedence 
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Universal 
Printer 


SLATE Driver 
Would support for over 
400 printers give you a 
competitive edge? 


By including SLATE, you can 


provide immediate support 
for over 400 printers. SLATE 
comes with its own screen 
based configuration system 
SO you don’t need to worry 
about end user setup. 


You can use SLATE in your 
product with no royalties. 


Make your product more 
functional and competitive by 
taking advantage of SLATE’s 
advanced features: 


e Support multiple printers on the same 
system. 


e Output to parallel printers, serial 
printers, DOS files, console, DOS 
print spooler, and Novell network 
printers. 


e Include laser printer soft fonts. 
e Support proportional fonts. 

e Set exact print positions. 

e Color printing. 


e Kerning, leading, overstrike, 
underlining, and strike through. 


You can use advanced features 
of modern printers while 
working smoothly with printers 
without those features. 


What is SLATE? 


SLATE is a set of C libraries 
with over 150 text printing 
functions, a Database of over 
400 printers, and tools for end 
user configuration and testing. 


Support over 400 printers for 

less cost than developing one 
more driver. Call now to order 
SLATE for only $299 with our 
risk free, 30 day return policy. 


We accept Visa, Mastercard, COD’s or 
PO’s from qualified companies. Source 
code, maintenance, and site licenses 
are available. Also ask for information 
about our S_PRINT Text Formatting 
System for Software Developers. 


800-346-3938 


eWale PO Box 26195 


+ 7 Columbus, OH 43226 
Symmetry 644.431.2667 


Group Fax 614-431-5734 
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Atoms 
The first call in the declarator is a call 


to Dname. This call looks up the last 
scanned token and stores the name. 


Sbrowse” ‘ 
“ (In the case of abstract declarators, the 
AN INTERACTIVE : name can be empty.) The name is stored 





SOURCE LANGUAGE BROWSER ee 


atom table can be used in the same 
way that an array of strings is used — 
when the atom table is subscripted with 


Finally, the tool that really makes large and 
unfamiliar Source programs comprehensible — 
and is not dependent on links to documentation. 


N OW you Can instantly make enhancements to 
large programs you've never seen or half-forgotten. 


iain In other languages, it’s 
Sbrowse answers questions like: 
w@ Where is this variable used? simple lO find a 


@ What is the value of this preprocessor symbol? 

w What lhe all the functions in the source files? All the operators? All the ; h , 
aggregates? 

w Where is this function in the source files? This class? This struct? This union? function "y USING i“ 

w Where can | find all the instantiations and other uses of this aggregate? 


@ What functions call this function? text-search utility, but 


w Which functions do this function call? 
w Where does the message “out of space’ come from? 


w Where is this source file in the directory structure? : 
Sve nice fag ee he a functions may be 
Integrate Sbrowse with your favorite editor. Zip in and out of 


your other development tools, too. Sbrowse lets you think and overloaded In C++ 


act in the most natural and efficient way. 


FOR DOS AND/OR UNIX®-BASED SYSTEMS 
(C,C++, lex, yacc) 
Prices start at $245 
Call: 516-473-7500 Or write to: 
Computer Enterprises, Inc., P.O. Box 8, Pt. Jefferson, NY 11777 








Sbrowse is based, in part, on UNIX® System Toolchest/UNIX is a registered trademark of AT&T an int, it gives a string. But, when the 
atom table is subscripted with a string, 
CIRCLE NO. 134 ON READER SERVICE CARD it gives the number! This second tech- 


nique is known as an “associative ar- 


ray” and is quite handy. When a string 
that is not in the table is given, that 
string is added to the table and a new 
number is assigned. The files ATOM- 
| | -CPP (Listing Four, page 120) and 


UNLIMITED MEMORY C++ Oe Ete Wine eae Te) pe 
FOR MS-DOS AND UNIX 




















See How They Run 

¢ Compile larger programs. As explained earlier, the type is stored 
a = y 4 Access up to 4 GB with as a linked list. Dname starts off a 
iN =k oss eff Intek C++ running in declaration, and a new list is created. 
80386 protected mode type_root is the head of the list, and 
and get full usage of this_type is the tail end. Each modifier 

C++’s powerful object-oriented programming features. adds a link and moves the tail down. 
¢ Choose the compiler you prefer. Microsoft C, Turbo C, When TypeModifier is called, the cor- 
Metaware, or Watcom—tt’s up to you. rect primary (function, array, pointer, 
¢« Enhance program compatibility. |ntek C++ supports C or reference) is stored in the node, 
extended keywords, so it is compatible with programs that along with other information specific 
run under Microsoft Windows or OS/2. to that type. Then a new node is added, 
¢ Simplify your development environment. |Intek C++ can and the pointer is moved down to that 
cross-compile from Unix System* V/386 to DOS, so you can node. In the expression *x//, Dname 
keep everything in one place. gets a name of x and creates the first 
PN] 1 Pg node; TypeModifier(2) then sticks in 
Contact these quality dealers: IN'FEK array of, chains on another node in the 
The Programmer’s Shop INTEGRATION to_what field, and moves the this_type 
1-800-421-8006 TECHNOLOGIES . pointer to point to the new node. Type- 
orchid istic Bollewe, Washinoton 98004 Modifier(3) then plugs in pointer to 
1-800-826-2958 | (206) 455.9935. FAX: [206] 455-9934 and adds on another link. The linked 
In California call 1-800-543-6945 Usenet: uunet!intekOIinfo list now téads (starting at the root) 

Uspende pon souk © complet. Metwers, Wicroeoh. andiWietcon areal rateriene cf inci respective companies Tula © array of pointer to <garbage>. 

a trademark of Borland Intl: MS-DOS is a trademark of Microsoft; Unix is a trademark of AT&T. Intek is licensed from AT&T. When the declarator is finished, a 


* Unix version available second quarter 1989. 


call to the Declaration is made. This 
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PC-MOS 


The Multi-User Solution For The 
Multi-Dimensional Company 








Odds are, you're part of a multi-faceted organization, 
one that’s involved in many different projects and 
activities. Every day you juggle dozens of tasks. So 
why are your PCs still doing one thing at a time — 
for one person at a time? 

Today’s 286 and 386-based PCs provide the power 
to do much more. PC-MOS is the multi-user, multi- 
tasking software that unleashes that power, making 
your PCs as multi-dimensional as your business. 


Minicomputer Power For The Cost Of A PC! 


PC-MOS lets several users simultaneously run dif- 
ferent programs on a single, high-performance PC. 
One user can run a spreadsheet, while another uses 
the word processor and several others access a data- 
base — all at the same time! So instead of replicating 
expensive PCs, each user has an inexpensive monitor 
or terminal. The benefits are lower cost, more control, 
better security and consistency across applications. 
And at $595 for a 5-user version, you can afford to 
get started today! 


DOS Compatibility, NetWare Connectivity 


PC-MOS lets users run the popular DOS programs 
they use now — even Microsoft® Windows 286. Our 
gateway to NetWare lets you expand your Novell 


GSA Schedule/GSOOK 89 AGS6448 
PC-MOS is a trademark of The Software Link. All other products referenced are trademarks 
of their respective companies. Prices and policies subject to change without notice. 


network inexpensively and easily. And PC-MOS 
requires no expensive wiring, and no network man- 
agement headaches. 


Proven Reliable With 100,000+ Users 


Because PC-MOS was the first DOS-compatible 
multi-user operating system, it offers broad compati- 
bility and the reliability of time-tested software. More 
than 100,000 satisfied users trust their work to PC- 
MOS each day. Our latest version features an easy- 
to-use install program, lets you re-boot individual 
workstations, and supports high-resolution, bit- 
mapped color graphics. 

Call us today. We'll show you how to add multiple 
dimensions to your PC. 





THE SOFTWARE LINK 


3577 Parkway Lane, Norcross, GA 30092 
1-800-451-LINK, (404) 448-5465 
FAX: (404) 263-6474 TELEX: 4996147 SWLINK 
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call takes the base type (stored way 
back when with the call to StoreType) 
and fills it into the current node. For 
example, if the line read static int x¥ /., 
then the result is array of pointer to 
int. Other stuff is filled in, and the com- 
plete declaration is ready. 

The declaration must be stored in a 
symbol table for later reference. The 
type, along with the storage class (static) 
and the name (x), is sent to store_ 
thing( ). Basically, that’s now the end 
of the story — the parser continues. 

The storage class and type are still 
remembered, so declarators that are 
separated with commas use the same 
values. Each declarator is sent to 
store_thing( ) when the declarator is 
encountered. The parser starts over with 
StoreStorage for a new line, or with 
Dname if several declarators are con- 
tained in the same statement (that is, 
extern char a, *b, Gc; share “extern 
char’’). 

In DEFINE.CPP (Listing Six, page 
120), store_thing( ) handles the “‘thing”’ 
after the “thing” is parsed. Up to now, 
the only kind of node used was a 
type_node. Now, another kind of node 
is introduced — a def_node. def_node 
holds the complete definition, which 
is built from the type, the storage class, 
and the name, and is stored in a list of 
def_nodes. 

Look back at NODE.HPP, and notice 
that all of the nodes are in a taxonomy. 
A list of nodes is also very useful. A list 
of base class nodes can hold any kind 
of node, but it is better to use lists with 
pedigree. To do so, node_list class is 
defined to handle the maintenance of 
a variable-sized array of nodes, and a 
dummy class is derived from node_list 
for each required pedigree. This dummy 
class contains an in-line function that 


Arg-Declaration-List 


C++ PARSER 


accesses the correct element and casts 
the elements to the proper type. The 
use of a macro allows a list (for what- 
ever type is needed) to be defined ina 
single statement. (Note the use of the 
token-pasting operator in the macro 
definition.) 

After the entire file is parsed, the list 
contains several entries. The Al/Done- 
Now action is a simple loop that prints 
out the list. The C++ definitions are 
spit back out in English-like phrases. 


Nested Definitions 

You may now be wondering about 
nested definitions. Consider a case such 
as int (*p)(int x/ ));. In this example the 
parameter list is parsed after Dname 
for the pointer modifier, p, and before 
the function modifier. This itself con- 
tains a definition. Look at the grammar 
for Arg-Declaration-List — this nonter- 
minal grammar appears between the 
parentheses in the function modifier 
(see Figure 2), 

Start-Nested-Type and End-Nested- 
Type are empty productions, and exist 
only to call the NestedType action at the 
right place. This action saves the state 
of the definition parse in progress, and 
then restores the state again. This sec- 
ond step is very simple because all of 
the information is stored in a structure. 
The structure is placed into a linked list 
and a fresh structure is created. The 
end call puts the old structure back. 

The argument-declaration is similar 
to Declaration, except that it is sepa- 
rated with commas. The same action 
Declaration is called when an argument- 
declaration is finished, with the pa- 
rameter defined as 2 instead of 1. This 
change causes the completed defini- 
tion to be placed into a different list. 
This new list is also stackable, because 
a parameter may itself be a pointer to 


-> Start-Nested-Type A-Decl-List? Elipses? End-Nested-Type 


Start-Nested-Type 
End-Nested-Type 


A-Decl-List? 
a 


-> A-Decl-List 


A-Decl-List 


-> => NestedType 1 
-> => NestedType 0 


-> A-Decl-List , Argument-Declaration 


-> Argument-Declaration 


Argument-Declaration 


-> StorageClass Type_w/const Declarator => Declaration 2 


Figure 2: The grammar for Arg-Declaration-List 
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struct C1 * p; 

int “p= "hello there!"; 
int *names{ ]; 

union FOO “*p; 


const char * const *(*w)( )[ ]; 
char a,b,*c,&d; 
int foo (int a, char* b); 





Figure 3: The test data for the parser 


a function. The NestedType() action 
calls parameter_list(), which creates a 
new list to store the upcoming parame- 
ters. The end call then pops the list off, 
restoring any list that was in progress. 
This completed list is placed in a global 
variable, which is read by T7ypeModi- 
fier( and will be the next action called. 
This mechanism for nested types is 
also used for processing class mem- 
bers. Notice that the Const/Vol stack 
works across nested types. Consider 
char *const (*p)(char const* s);, which 
is a pointer to a function that returns a 
pointer. The first const is used by the 
last modifier call, and stays on the stack 
while the nested type is being parsed. 


Conclusion 

This program is a far cry from a full 
compiler, but the program’s framework 
can be easily expanded to include ad- 
ditional language elements. The first 
feature that you should add to the pro- 
gram is the use of initializers. (The gram- 
mar presented in Figure 3 contains ini- 
tializers, but no actions are called yet.) 
As you can see, a small amount of code 
can produce a very robust program. 


Availability 

All source code is available on a single 
disk and online. To order the disk, 
send $14.95 (Calif. residents add sales 
tax) to Dr. Dobb’s Journal, 501 Galves- 
ton Dr., Redwood City, CA 94063, or 
call 800-356-2002 (from inside Calif.) 
or 800-533-4372 (from outside Calif.). 
Please specify the issue number and 
format (MS-DOS, Macintosh, Kaypro). 
Source code is also available online 
through the DD/J Forum on Compu- 
Serve (type GO DDJ). The DD] Listing 
Service (603-882-1599) supports 300/ 
1200/2400 baud, 8-data bits, no parity, 
1-stop bit. Press SPACEBAR when the 
system answers, type: listings (ower- 
case) at the log-in prompt. 


DDJ 
(Listings begin on page 116.) 
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monitors. 


Writing Correct 
Software 





Assertion and exception techniques can aid in class 


y aim in designing Eiffel was 

to produce a major program- 

ming language for the 1990s, 

catering to the needs of those 

software engineers willing to 
do what it takes to produce high-qual- 
ity software. A key aspect of Eiffel, 
which makes it original in the world 
of object-oriented languages, and in 
the world of programming languages 
at large, is its strong emphasis on tech- 
niques that help produce highly reli- 
able software. 

Although, there are many more as- 
pects to Eiffel (including those described 
in my book Object-Oriented Software 
Construction, Prentice-Hall, 1988) the 
reliability features deserve a presenta- 
tion of their own. That is the focus of 
this article. I will show how it is possi- 
ble to write software that programmers 
(and users) can place a much higher 
degree of confidence in than that writ- 
ten with traditional techniques. In par- 
ticular, I will discuss the all important 
notion of assertion — the specification 
element included within the software 
itself. This will lead to a systematic 
view of exception handling, and a look 
at techniques (such as those offered 
by Ada) that I find somewhat unsafe. 


Why All the Fuss? 


The issue is simple. It is great to have 


Bertrand is the president of Interactive 
Software Engineering and is the main 
designer of the Eiffel language. His book, 
Object-Oriented Software Construction, 
was published by Prentice Hall in 1988. 
He can be reached at 805-685-1006, 
or through e-mail as Bertrand at 
Eiffel.com. 


48 





Correciness 


Bertrand Meyer 





flexible software that is easy to build 
and easy to maintain, but we also need 
to be concerned that the software does 
what it is supposed to do. 

From reading most of the object- 
oriented literature, one would think this 
is not a problem. Correctness concerns 
are hardly ever mentioned. Actually, it 
is unfair just to pick on object-oriented 


programming. Take any standard text- » 


books you have on programming, al- 
gorithms, data structures, and similar 
topics. See how many of them list “cor- 
rectness, — 


? 66 


reliability,” “invariant,” or 
“assertion” in their indexes. I have quite 
a few textbooks on my shelves, but 
could not find many that passed this 
simple test. 

This apparent disregard for correct- 
ness issues cannot last forever. Even 





barring the occurrence of a major ca- 
tastrophe resulting from faulty software, 
sooner or later someone will call the 
software engineers’ bluff and ask them 
exactly why they think their systems 
will perform as announced. It is diffi- 
cult to answer that question convinc- 
ingly given the current state of the art. 

Eiffel won’t provide the magical key 
to the kingdom of software reliability. 
No existing method or tools will. I do 
believe, however, that the Eiffel tech- 
niques are an important step in the 
right direction. 

If you are expecting a sermon telling 
you to improve your software’s reli- 
ability by adding a lot of consistency 
checks, you are in for a few surprises. 
I suggest that one should usually check 
less. According to conventional soft- 
ware engineering wisdom, “defensive 
programming” is considered to be a 
programmer’s best shot at reliability. I 
believe that defensive programming is 
a dangerous practice that defeats the 
very purpose it tries to achieve. To 
program defensively is one of the worst 
pieces of advice that can be given to a 
programmer. 

That more checking can make soft- 
ware less reliable may seem foolish. 
Remember, though, that in science com- 
mon sense is not always the best guide. 
If you have ever hit a wooden table 
with your fist, you probably found it 
hard to believe the physics professor 
who told you that matter is a set of tiny 
atoms with mostly nothing in-between. 


Expressing the Specification 

The ideas that help achieve correctness 

in Eiffel are much older than Eiffel it- 
(continued on page 52) 
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(continued from page 48) 
self. They come from work on program 
proving and formal specification. Oddly 
enough, research on these topics has 
remained estranged from most “real- 
world” software development. Part of 
the reason, at least in the United States, 
is the widespread view that formal speci- 
fication and verification are specialized 
research topics whose application is 
mostly relevant to “mission-critical” soft- 
ware. Correctness, however, should be 
a universal concern. Eiffel looked at speci- 
fication and verification work to see 
how much of it could be made part of 
a standard programming methodology. 

Eiffel is a production language and 
environment. It is not a research vehi- 
cle. Eiffel relies on the technology of 
the last part of the twentieth century. 
It has to work now. This means that no 
miracles can be expected. In fact, the 
techniques are modest and almost naive. 
They are the result of an engineering 
trade-off between what is desirable in 
an ideal world and what can realisti- 
cally be implemented today. But they 
make a big difference and I can’t un- 
derstand why no widespread language, 
other than Eiffel, has made any signifi- 
cant attempt in a similar direction. 

The basic idea is rather trivial. Cor- 
rectness is a relative notion. No soft- 


Obligations 


Bring in manuscript 


Get published text 
before May 1st 


before March 1st 


No need to do 
anything if no 
manuscript is 
received before 
March 1st 





Publisher Publish before 
May 1st 


Figure 1: Contract between a 
publisher and an author 






Figure 2: Circle intersection 


Obligations Benefits 


Call the routine on 
two circles that 
intersect 


| Client Obtain as result of 
the function a 
point that is on 


both circles 





No need to return 
anything meaningful 
if the circles do not 
intersect 


Routine Find a point that is 


on both circles 


Figure 3: A routine contract 
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ware element is correct or incorrect per 
se; it is correct or incorrect only con- 
cerning a particular specification, or 
statement of its purpose. Correct ele- 
ments cannot be written unless the time 
is taken to express all or part of this 
specification. 

Writing the specification will not guar- 
antee that it is met. But the presence 
of a specification, even one that is only 
partially spelled out, goes a surpris- 
ingly long way toward helping pro- 
duce elements that satisfy their correct- 
ness requirements. 

This idea was captured by the title 
of an article by Harlan Mills, then of 
IBM, published in 1975: “How to Write 
Correct Programs and Know Why.” If 
you are a serious software engineer, 
you don’t just want to hope that your 
programs are correct because you have 
been careful, and done a lot of testing, 
and so on. You need precise argu- 
ments that document the correctness 
of your software. 

In Eiffel, such arguments are ex- 
pressed as assertions — elements of for- 
mal specification that can be attached 
to software components, classes and 
their routines. 


The Contract 
Let’s look at routines first. A routine is 
the description of some computation 
on the instances of a class, made avail- 
able by that class to its clients (to other 
classes relying on its services). How 
do we specify the purpose of a routine? 
The view I find most helpful is that 
a routine provides clients with a way 
to contract out for a certain task that 
the client’s designer finds advantageous 
not to implement within the text of the 
client. This is the same way that we 
humans at times contract out for part 
or all of a task that we need to perform. 
Human contracts have two impor- 
tant properties: 


e Each party expects some benefits and 
is prepared to incur some obligations 
in return. What is an obligation for 
one party is a benefit for the other. 

e The obligations and benefits are 
spelled out in a contract document. 


Figure 1 illustrates an example of a 
contract between a publisher and an 
author. The author’s obligation is to 
bring in a manuscript before March 1st. 
The benefit to the author is that the 
manuscript will be published before 
May lst. The publisher’s obligation is 
to publish the manuscript before the 
second date. 

The publisher is not bound by any 
obligation if the author violates his part 
of the deal. In such a case the publisher 


may still publish the manuscript, but 
does not have to. The situation is out- 
side of the contract’s bounds. 


Routine as Contract 
Specifying a routine is based on the 
transposition of these observations to 
software. First, we need the equivalent 
of the contract document. It bewilders 
me that no such concept exists in stan- 
dard approaches to software construc- 
tion. 

The specification consists of two 
parts: 


e The precondition of a routine states 
the obligations of clients, which are 
also the benefits for the routine itself. 

e The postcondition states the obliga- 
tions of the routine, which are also 
the benefits for the clients. 


The precondition is a set of initial con- 
ditions under which the routine oper- 
ates. Ensuring the precondition at the 
time of any call to the routine is the 
clients’ responsibility. 

The postcondition is a set of final 
conditions the routine is expected to 
ensure. Ensuring the postcondition at 
return time (if the precondition was 
met On entry) is the routine’s responsi- 
bility. 

The concept of a contract is one of the 
most useful aids to understanding Eif- 
fel programming. The role of contracts 
in Eiffel can be compared to what mes- 
sage passing represents in Smalltalk. 

Figure 3 illustrates this idea. The func- 
tion intersect1 in a class CIRCLE (as- 
sumed to be part of some graphic pack- 
age) returns one of the two intersecting 
points of two circles (see Figure 2). 
We will look at how to associate the 
precondition and the postcondition to 
the text of the function in the actual 
Eiffel class. In this example: 


e The precondition is that the two rec- 
tangles should intersect. 

e The postcondition is that the function 
result is a point that is on both circles. 


Contract Variants 

This is not the only possible specifica- 
tion. Programmers may feel uneasy 
about the just mentioned “demanding” 
form of the routine, which only works 
in some cases. Instead, a tolerant ver- 
sion implementing a different contract 
may be designed. For example: 


e There is no precondition. More pre- 
cisely, the precondition is true, and 
automatically satisfied by any client. 
Here, the routines will be applicable 
in all cases. 

e The postcondition is more difficult 


Dr. Dobb’s Journal, December 1989 


RECREATING ASSEMBLY LANGUAGE SOURCE CODE 





Re Source 





a breakthrough in reverse mearai 


OBJECT CODE TO SOURCE CODE AND BACK 


Re:Source. It's easy, fast and accurate. 

Re: Reverse Engineering for the IBM Compatible 
PC 80486, 80386, 80286, 80186, 8086/88 with 
MS-DOS and OS/2. It's possible to go from 
object code to source code and back again easi- 
ly. Re:Source is an excellent tool for making 
alterations to any executable file of any size 
(even the operating system), in both real and 
protected modes. Re:Source carefully takes the 


program apart and accurately puts it back togeth- 


er by automatically handling assembler 
mnemonic synonyms and syntax errors. It com- 
pares and lists any differences between .EXE, 
COM, device drivers, binary files, code frag- 
ments or subroutines at any location. Re:Source 
works faster and more thoroughly than any sim- 
ilar product available. Re:Source's extensive and 
educational manual is easy to use, fully indexed 
and comes with a quick reference card. 


Self-Documenting and Reconfigurable 
All of Re:Source's documenting and control 
information is in easily editable separate data 
files. This allows Re:Source to be modified to 
handle any operating system or executable 


binary file structure. The source code is compat- 


ible with most debuggers and profilers. 


Pseudo-Code 

Re:Source produces compact, easily-readable 
pseudo-code from massive binary executable 
files. This pseudo-code allows easy access to 
subroutines, functions, interrupts, input-output 
ports and self-modifying code. 
Hexadecimal/Binary Editor 

Re:Source includes a unique word processor 
style Hexadecimal/Binary Editor. It has 





character and block operations such as insert, 
delete, copy, move and wildcard search and 
replace. Create test data or modify binary files 
that usually cannot be altered. 


Two Disassembler Programs Included: 
#1 Interactive - Mouse Support 

With a mouse supported interface, the inter- 
active disassembler program features a multi- 
windowing environment including pull-down 
menus, dialog boxes and scroll bars. Source 
code displayed on the screen can be scrolled 
forward and backward and viewed in several 
formats or locations at the same time. 


#2 Automatic/batch 

The second disassembler program is entirely 
automatic and much faster, running in batch 
mode from the DOS command line. 

A fully-featured calculator desk accessory is 
included in the interactive program. A stand- 
alone version is included for use from the DOS 
command line. 


OS/2 Compatibility 


Re:Source will work with OS/2 files in DOS or 
from the DOS compatibility window in OS/2. 


LIMITED-TIME UPGRADE OFFER 





Save $100 
If you already use a disassembler, upgrade to 
Re:Source - the complete reverse engineering 


system. Just call before December 31, 1989 with 


your product's name and serial number, and 


we'll upgrade you to Re:Source for $49.95 


(one upgrade per customer and serial number. 
Add $5 shipping and CA residents add 6.5% for sales tax). 





ies binary object code. 
ocumented source code . » - _. 


ve multi-windowing, mouse ~ | 
pie “down menus, dialog fies 


eden: calultor : 


and flexible binary f fe 
ison | 


eference and index for oe 
' functions, interrupts, data 


es sor style peradcmalnay . 





M conpatte 


INIMUM REQUIREMENTS: 
sg B/80¢ 3086 - 80486 








05" /720K 35" Foppy IBM ] “a 2 
| nat (hard disk recommended) — 


MS 00s, was, OS/2aretrademaks of Mcrsoft 


$1492 (Not copy protected) 


To Order Re:Source - Call 800/266-5522 
Specify 3.5" or 5.25" disk. MC and Visa 
accepted, call toll-free. Or, send check or 
money order for $154.95 (includes $5 shipping, 
CA residents add 6.5% tax) to: 

Genesoft Corp., 322 N. San Dimas Avenue, 
San Dimas, California 91773. 

30-day money back guarantee. 








quality software from GEN 


©1989 Genesoft Corporation » 322 North San Dimas Avenue, San Dimas, California 91773 + (714) 394-0010 FAX: (714) 592-7771 


CIRCLE NO. 68 ON READER SERVICE CARD 








EIFFEL 


A 


(continued from page 52) 

to express in this case. Either the two 
circles intersect and the function result 
is a point on both circles; or the two 
circles do not intersect, the function 
result is an arbitrary point, and an error 
message has been displayed some- 
where. The awkwardness of stating the 
postcondition in such a way is the first 
sign of why “demanding” versions are 
often better. 


Expressing the Contract 
Let’s see how the preconditions and 
postconditions will be integrated. List- 
ing One, page 125, shows what a class 
CIRCLE might look like. Assume the 
availability of a class POINT describing 
points, and a function distance, such 
that pl.distance (p2) is the distance 
between any two points (p/ and p2). 
Resultis a predefined variable which, 
in a function, denotes the result of that 
function. Create is the initialization pro- 
cedure. It is automatically exported. 
The precondition of a routine, if any, 
is given by the require clause. The post- 
condition is given by the ensure clause. 
Preconditions and postconditions are 
assertions — logical constraints ex- 
pressed as One or more Boolean ex- 
pressions, separated by semicolons. 
They are essentially equivalent to 
Boolean ANDs, but allow assertion com- 
ponents to be identified individually. 
These components can be tagged for 
even better identification. For exam- 
ple, consider Listing Two, page 125. 
Note that the first clause in this pre- 
condition (as well as clauses in the 
preconditions of inside and outside) 
express that the argument must be non- 
void. Void is a predefined language 
feature expressing whether there is an 
object associated with a certain refer- 
ence: 


Uses of Assertions 

Along with invariants (discussed later), 
preconditions and postconditions play 
a fundamental role in the design of 
Eiffel classes. They show the purpose 
of routines and the constraints on their 
uses. A brief look at any well-designed 
set of Eiffel classes shows how wide 
their application is. The Basic Eiffel 
Library, which covers fundamental data 
structures and algorithms, is an exam- 
ple of a set of carefully designed classes 
that come fully loaded with expressive 
assertions. 

The first application of assertions, 
perhaps the most powerful, is as a con- 
ceptual design aid for producing reli- 
able software. In this role, precondi- 
tions and postconditions directly sup- 
port the goal stated earlier: Writing cor- 
rect software and knowing why it is 
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correct. When a routine is written, its 
goal (contract) is expressed. If this goal 
cannot be expressed in a formal way, 
it should still be expressed as formally 
as possible. 

Documentation is another key appli- 
cation of assertions. One of the most 
pervasive myths of software engineer- 
ing literature is the idea that document- 
ing software is a worthy goal. Instead, 
documentation should be viewed as 
an evil, made necessary by the insuffi- 
cient abstraction level of current tools, 
techniques, and languages. It is an evil 
not just because documentation is tedi- 
ous to produce, but also because it is 
almost impossible to maintain the con- 
sistency of a software system with its 
documentation throughout the system’s 
evolution. Incorrect or out-of-date docu- 
mentation is often worse than no docu- 
mentation at all. 

In an ideal world, software should 
be self-documenting, with no need for 
outside documentation. Failing this pro- 
grammer’s Eden, we should strive to 
have as little need for external docu- 
mentation as possible. Documentation 
should be deduced from the software 
itself. “Self-documenting software” does 
not mean that the software is its own 
documentation. Instead, self-document- 
ing software should contain part, or 
(ideally) all, of its documentation, cor- 
responding to various levels of abstrac- 
tion, which can be extracted by auto- 
matic tools. 

Preconditions and postconditions 
play a key role because they document 
the essential properties of routines: What 
each routine expects and what each 
ensures in return. The Eiffel environ- 
ment provides an automatic tool that 
yields the documentation of a class 
based on its assertion. This tool, the 
class abstracter, is implemented by a 
command called “short.” Applying short 
to a class yields the description neces- 
sary to determine whether the class can 
be used in a certain situation, and, if 
so, how to use it effectively. 

The result of short applied to class 
CIRCLE would be of the form shown 
in Listing Three, page 125. 

As shown in this example, short 
keeps, as a complement to formal as- 
sertions, the natural language header 
comments of routines, if present, at a 
well-defined place. Only exported fea- 
tures are kept by short. 

short provides documentation “for 
free’ — it is extracted from the soft- 
ware. short is the major tool for docu- 
menting Eiffel classes. A companion 
tool, good, produces high-level system 
documentation in graphic form, show- 
ing the class structure with client and 
inheritance relationships. Remember, 


though, that short is meaningless with- 
out the presence of assertions in the 
language. 


Invariants 
Preconditions and postconditions can 
be used in a non-object-oriented con- 
text. Another use of assertions that is 
inseparable from the object-oriented 
approach is the class invariant. This is 
an optional clause of Eiffel classes. An 
invariant is a consistency constraint that 
applies to all instances of the class. 

In the CIRCLE example, the invariant 
clause might state the following asser- 
tion: 


radius >= 0; 
inside (center) 


In larger examples the invariants can 
be much more extensive. 

Invariants can be viewed as general 
clauses that are implicitly added to all 
contracts of a certain class, without be- 
ing expressly repeated for each of these 
contracts. The precise definition of the 
class invariant is that it is an assertion 
that: 


e Must be ensured by the Create of the 
class 

e Must be preserved by every exported 
routine of the class 


In principle, we could do away with 
the invariant by adding its clauses to 
the precondition and postcondition of 
every exported routine, and to the post- 
condition of the Create. But, besides 
making these assertions unduly repeti- 
tive, this would be losing sight of the 
role of the invariant as a global integ- 
rity constraint on the class, independent 
of a particular routine. 

The two properties used earlier to 
define the invariant imply that the in- 
variant is satisfied in all observable states 
in the life of every instance of the class. 
Observable states are those immedi- 
ately following the Create, and before 
and after application of exported rou- 
tines. The life of a typical object is 
pictured in Figure 4, with observable 
states marked as square blocks. The 
idea of an observable state is important 
in the context of parallel programming. 

In spite of its name, an invariant is 
not necessarily satisfied at all times. It 
may be temporarily violated during exe- 
cution of exported routines, so long as 
it is restored for the next observable 
state. 

An invariant captures the semantic 
properties of a class, independently of 
its current implementation, by a set of 
attributes and routines. These proper- 
ties must be understood in a software 


Dr. Dobb’s Journal, December 1989 


© 1989 AT&T 


UNIX is a registered trademark of AT&T. 
Xenix is a registered trademark of Microsoft Corporation. 
SunOS is a trademark of Sun Microsystems, Inc. 





Steam Is Invisible To 
The Naked Eye. 


|_| True 
_| False 


UNIX System V 
Delivers More 
Than Vaporware. 


‘Irue 
_| False 


It may surprise you that the first statement 
is true. Only after steam cools does it become 
visible. 

The second statement is also true. With 
the introduction of UNIX® System V Release 4.0, 
our promise of secure, standard UNIX system 
computing is fulfilled. Applications written for 
System V, Xenix? Berkeley BSD, or SunOS™ are 
now compatible with Release 4.0, thanks to a few 
superior new features. 

Anew Application Binary Interface 
definition (ABI) ensures that your application: 
will run on many different computers, under 
many variations of UNIX software. 

A new utility, called Application Source 
Verifier 1.0 (ASV), helps you measure how easily 
existing applications can be ported to System V, 
or verify the compatibility of applications 
currently in development. 

And System V/MLS provides complete 
security for data contained in your interactive 
UNIX systems. It’s easy to administer, and allows 
you to specify a variety of security levels. 


For source code licensing information on 
all UNIX System Software, call 1-(800)-828-UNIX, 
ext. 133. 


Software For The Open-Minded. 














==} ATel 


== The right choice. 








Sima 





(continued from page 54) 
engineering context in which software 
is always subject to change. Invariants 
can help bring some order to a con- 
stantly changing environment by ex- 
pressing what does not change in a 
class — the basic semantics of the class. 

Invariants can play a major part in 
establishing a scientific basis for soft- 
ware activities that currently rest on a 
rather shaky basis: Quality assurance, 
regression testing, and maintenance. 
Because an invariant expresses the es- 
sential semantics of a class that should 
be preserved through successive modi- 
fication and extension, it provides a 
framework for making QA and associ- 
ated activities more systematic. 


Limitations of Assertions 

The Eiffel assertion techniques are only 
partial. The assertion sublanguage is 
based on Boolean expressions with 
some extensions. Sometimes more is 
needed, such as first-order predicates. 
In the CYRCLE class it would be nice to 
have the invariant express that no point 
can be both inside and outside the 
circle, or that any such point must also 
be ‘‘on” the circle. The notation for this 
could be: 


for p: POINT then 
inside (p) and outside (p) 
implies on (p) 
end 


This is not possible in current Eiffel, 
although properties involving quantifi- 
ers (‘for all,” “there exists’) can some- 
times be expressed through Boolean 
expressions involving function calls. 
These function calls require some care. 
Other limitations of assertions are due 
to the reference-based dynamic model 
used for objects. 

The mechanism is the result of an 
engineering trade-off. Though limited, 
assertions are a tremendous asset in 
Eiffel programming. 


c.Create (...) 


Figure 4: The life of a typical object 
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Assertions and Inheritance 

Assertions also play an important role 
in the context of inheritance. Invariants 
are always inherited. When a routine 
is redefined, its precondition may be 
weakened, but not strengthened. Its 
postcondition may be strengthened but 
not weakened. To understand these 
rules, the contracting metaphor must 
be viewed in the context of inheri- 
tance, redefinition (subcontracting), and 
dynamic binding. 


Monitoring Assertions 

The question of what happens when an 
assertion is violated (such as if intersect 
is called on two circles that do not 
intersect) is secondary. The main ques- 
tion is: How can we, as responsible 
software professionals, make sure that 
we produce software that is correct? 

The tendency to reverse the priori- 
ties and ask the secondary question 
first is a sign of how insecure most of 
us in the software engineering profes- 
sion feel about our techniques and tools. 
This article won’t reverse this situation. 
Still, we must get our priorities straight. 

The answer to what happens when 
an assertion is violated depends on 
how you have compiled your class. If 
you have made the effort of spelling 
out the mental hypotheses that under- 
lie the correctness of your software, 
you could expect a theorem prover to 
check the software against these hy- 
potheses. Unfortunately, this is beyond 
today’s technology. The next best thing 
to static proof is run-time monitoring. 
If you compile a class under the AZZ_ 
ASSERTIONS mode, all assertions (pre- 
conditions, postconditions, invariants) 
are checked at the appropriate times 
during execution. If one is found to 
be violated, an exception is triggered. 
Unless you have made explicit provi- 
sions to handle it, the exception will 
result in program termination with a 
clear message identifying the context 
of the failure. 

There is never a good reason to com- 
pile a class under any option other 
than ALL_ASSERTIONS, except perfor- 
mance. If you are sure your software 
is correct and do not want to incur the 
overhead of checking, use the NO_AS- 
SERTION_CHECK mode. If a bug does 
remain, though, you are on your own. 
The default is an intermediate mode, 
which generates code that checks pre- 
conditions only. Switching modes may 
be needed a number of times during 
development. This switch is easy. Only 
the last stage of compilation is repeated 
for the corresponding class. 

Run-time monitoring of assertions pro- 
vides a powerful debugging mecha- 
nism. Assertions are a way to make 


explicit the otherwise implicit mental 
assumptions that lie behind our soft- 
ware. It is typical for a bug to cause 
one of these assumptions to be vio- 
lated. When this occurs, run-time moni- 
toring will catch the violation. This de- 
bugging technique takes on its full mean- 
ing in the object-oriented context. I 
used it when using the Algol W com- 
piler in the seventies. Its superiority 
over usual debugging methods is hard 
to imagine until you have actually ap- 
plied it. 


Defensive is Offensive 

If a routine has a precondition p, de- 
fensive programming would mean that 
the text of the routine should test again 
for p, in case the client forgot. For in- 
stance, consider Listing Four, page 125. 

The form as shown in Listing Four 
is never acceptable. It is a sloppy style 
of programming in which responsibil- 
ity for ensuring various consistency con- 
ditions (contract clauses) have not been 
clearly assigned. Because the contract 
is unclear, the scared programmer in- 
cludes redundant checks “just in case.” 
This is a self-defeating policy. Com- — 
plexity is the single, worst enemy of 
software reliability. The more redun- 
dant checks, the more complex the 
software becomes, and the greater the 
risk of introducing new errors. 

Reliability is not obtained by cow- 
ardly adding even more checks, but 
by precisely delineating whose responsi- 
bility it is to ensure each consistency 
requirement. A party in a contract may 
fail to meet the requirement imposed 
on it. This is precisely what a bug is. 
The solution, however, is not to make 
the software structure more complex 
by introducing redundant checking, 
which only makes matters worse. For 
fault-tolerant design, you should be able 
to rely on a general-purpose run-time 
checking mechanism. In Eiffel, this 
mechanism is the monitoring of asser- 
tions as described above. 

With redundant checking being un- 
acceptable, we still face a choice be- 
tween the “demanding” (strong pre- 
condition) style and the “tolerant” (no 
precondition) style, with the intermedi- 
ate spectrum. Mathematically, tolerant 
routines represent total functions and 
demanding routines represent partial 
functions. Which one to use depends 
on the circumstances. The closer a rou- 
tine is to uncontrolled ‘end users,” the 
more tolerant it should be. But even 
with general-purpose library routines, 
there is a strong case for demanding 
routines. 

With a strong precondition, a rou- 
tine can concentrate on doing a well- 
defined job and doing it well, rather 
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(continued from page 56) 

being concerned with other things. The 
intersect1 routine becomes a mess if it 
isn’t assumed that the circles do inter- 
sect. Tolerant routines must address 
user interface concerns for which the 
routines do not have the proper con- 
text. The intersect] routine must ad- 
dress problems of geometrical algorith- 
mics (computing the intersection of two 
intersecting circles in the best possible 
way). It is difficult to reconcile these 
two aspects in a single routine. The 
solution that will ensure reliability more 
certainly than blindly checking all con- 
straints all the time, is to separate the 
checking and the computation. 

Conventional wisdom, which says 
“never assume anything, anywhere,” 
‘is wrong and dangerous. Its perva- 
siveness can only be explained by the 
absence of any notion of contract in 
standard approaches to programming. 
If clients have no precise specification 
of the conditions they are supposed to 
observe, they can’t be trusted to ob- 
serve these conditions and there is no 
choice but to include as many consis- 
tency checks as possible. In a system- 
atic approach to software construction, 
however, the contract is clearly and 
adequately expressed, independently 
of its implementation, through asser- 
tions. By using the short command to 
let client designers see this contract, 
you can concentrate on doing your job 
rather than checking theirs. 

Considered in the perspective of other 
engineering disciplines, the often rec- 
ommended ban on “partial” routines 
seems absurd. If you ask an electrical 
engineer to design an amplifier that 
will work for any input voltage, or a 
mechanical engineer to build a bridge 
that will hold any load, they will laugh 
at you. Any engineering device has 
preconditions. There really is no good 
reason why software routines should 
be required to be total. 

The reference to electronic compo- 
nents is not coincidental. One of the 
most exciting advantages of object- 
oriented techniques is the ability to 
work from libraries of standardized, 
off-the-shelf, reusable components. 
These components are similar to hard- 
ware components used in electrical en- 
gineering. These libraries cannot be 
successful unless the components are 
specified in a precise and standardized 
way. Trying to sell a class without its 
invariant, preconditions and postcon- 
ditions is like trying to sell an amplifier 
without its engineering specs. 


Programming by Prayer 


Assertions are not a way to program 
the handling of special cases. An ex- 
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ception violation is not an expected 
situation that you want to handle sepa- 
rately from the others — it is the mani- 
festation of a bug. To handle special 
cases, there is not much substitute for 
what you learned on day two of Intro- 
duction To Programming 100 — the 
if...then... else construct. 

There seems to be another pervasive 
myth in the industry that one can forget 
about special cases through a form of 
faith healing. This can be called “pro- 
gramming by prayer.” In Ada, the sa- 
cred word is raise. Whenever you en- 
counter a situation that threatens to 
disrupt the spiritual harmony of your 
program, kneel down and say, raise 
some_exception and a saint or angel 
will come and take your worries away. 

It doesn’t work this way. The ‘“an- 
gel” has to be programmed, and usu- 
ally by you. Postponing a problem does 
not solve it. 

In Ada, after a raise, a chain of calls 
that led to the exception is explored, 
in reverse order, until a block is found 
that includes an exception clause of 
the form: 

exception 
when 
some_exception=>some_action; 
when 
other_exception=>other_action; 


One of the when branches names the 
current exception. Then the code 
some_action is executed and control 
returns to the handling block’s caller. 

If your aim was to make your soft- 
ware simpler by separating the pro- 
cessing of “normal” and “special” cases, 
you will be disappointed. Special cases 
will not go away through the raise at- 
tempt at absolution. Such as old sins, 
they will come back to haunt you in 
your exception clauses. In the program 
text, such clauses are far away from the 
source of the exception. They usually 
lack the proper context to deal with the 
exception. 

There are two cases of exception 
handling. One is when the exception 
must be handled identically for all calls 
of the routine. This type of exception 
is much better handled by an if ... 
then... else ... clause in the routine 
itself. In other words, the routine should 
be made more tolerant. 

The second is when the handling of 
the special case is different for each 
client. This can be achieved by protect- 
ing each call with an if... then... 
else. The routine itself remains demand- 
ing. In either case no special control 
structure is needed. 


Exceptions 


Once the naive faith in exceptions as | 


exorcism has been dispelled, there is 
still room for an exception mechanism. 
Exceptions should not be used as con- 
trol structures. They have no advantage 
over standard control structures, and have 
many drawbacks. Some mechanism is 
needed however, to deal with an op- 
eration that might fail in such a way 
that it is difficult or impossible to check 
for with a standard control structure. 
Following are three main examples: 


1. Bugs. By definition, a bug is unex- 
pected. If you were able to test for its 
occurrence, you would correct the bug 
in your software, not handle it at run 
time. If, in spite of your best efforts, a 
bug does occur, you still want the abil- 
ity to recover from it somehow at run 
time, even if only to terminate the exe- 
cution gracefully. 

2. Uncheckable consistency conditions. 
Some preconditions may be impossi- 
ble to check as part of anif...then... 
else, either because they are too com- 
plex to express formally, or because 
the applicability of an operation can 
only be ascertained by attempting the 
operation and seeing if it fails. For ex- 
ample, a write to disk operation may 
fail, but it is not useful to ask first and 
then write. The only way to know if 
you can write is to attempt to write. 
Then, if something goes wrong, you 
must be able to recover. Another ex- 
ample, in an interactive system, is the 
implicit precondition that the user will 
not hit the BREAK key. Obviously, you 
cannot test for the occurrence of such 
events. 

3. Impractical to check before each call. 
These are operations for which express- 
ible preconditions exist in principle, 
but for which it is impractical to check 
before each call. For example, few pro- 
grammers want to protect every addi- 
tion by a test for non-overflow, or ev- 
ery object allocation (Create) by a check 
that enough memory remains. As in the 
previous case, but for practical, rather 
than theoretical reasons, you want to 
be able to attempt the operation, pro- 
ceed as if everything went all right, but 
recover if something goes wrong. 


These three cases are ones for which 
exceptions are needed. They are not 
“special” or expected algorithmic cases, 
but abnormal situations that cannot be 
properly handled by standard algo- 
rithmic techniques. 

In Eiffel, an exception occurs in the 
following situations: 


e Assertion violations Gif monitored). 
The violation of an assertion is al- 
ways a bug. A violated precondition 
reflects a bug in the client; a violated 
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(continued from page 58) 
postcondition reflects a bug in the 
routine. 

e Hardware or operating system sig- 
nals, such as arithmetic overflow, mem- 
ory exhaustion, and so forth. 

e An attempt to apply an operation to 
a non-existent object (Void reference). 

e Failure of a called routine. 


The range of such exceptions is much 
less extensive in Eiffel because of the 
disciplined nature of the language. In 
particular, the static typing mechanism 
of Eiffel implies that for a correctly 
compiled system there is no exception 
for a “feature applied to an object that 
cannot handle it (a message sent to an 
object that cannot process it).” 


Dealing with Exceptions 
What happens when an exception oc- 
curs? The Ada answer is dangerous. 
Because you can do essentially any- 
thing you like in a when clause, there 
is no guarantee that you will achieve 
anything remotely resembling the origi- 
nal purpose of the routine that failed. 
To obtain a satisfactory solution, it 
is necessary to think in terms of the 
contract that a routine is meant to en- 
sure. The routine initially tries to satisfy 
its contract by following a certain strat- 
egy, implemented by the routine’s body 
(the do clause). An exception occurs 
when this strategy fails. In the disci- 
plined approach, only two courses of 
action make sense: 


e The routine (contractor) may have a 
substitute strategy. If so, it should bring 
the target object back to a stable state 
and use this strategy. This is the re- 
sumption Case. 

e If no substitute strategy is available, 
the routine should bring the target ob- 
ject back to a stable state, concede 
failure, and pass the exception to its 
client. This is the failure case. 


Routine 
m_creation 


Class 
INTERFACE 


Object 
2FB44 


MATH 


2F 188 quasi_inverse 


(from BASIC_MATH) 


2F188 MATH raise 


(from EXCEPTIONS) 


2F188 MATH filter 


2F321 MATH new_matrix 


from BASIC_MATH 


2FB44. INTERFACE create 


Figure 5: An exception history table 
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In the exception history table shown 
in Figure 5, some exceptions are dealt 
with in each of these two modes. The 
table, shown as it is printed at run time, 
is divided into periods, separated by 
double lines. Each period, except the 
last, ended with a retry. 

The absence of a clear-cut choice 
between resumption and retry is what 
makes the Ada mechanism too gen- 
eral, and hence dangerous. Some Ada 
examples show cases in which a rou- 
tine reacts to an exception, fails to cor- 
rect the cause of the exception, and 
returns to its caller without signalling 
the exception. This is extremely dan- 
gerous. 

Eiffel enforces the choice between 
resumption and retry. The key idea is 
that of routine failure — a routine may 
succeed or fail. If it fails to achieve its 
contract, it may either try again or give 
up. It should not conceal the failure 
from its caller. 

This explains the fourth case in the 
earlier list of Eiffel exceptions. The fail- 
ure of a routine automatically triggers 
an exception in its caller. This is imple- 
mented by the optional routine clause 
rescue. If present, the rescue clause is 
executed whenever an exception oc- 
curs during the routine’s execution. 

If a rescue clause is executed to the 
end, the routine terminates by failing. 
As noted, this automatically raises an 
exception in the caller, whose own 
rescue clause should handle it. If a 
routine has no rescue clause, as will 
typically be the case with most rou- 
tines, then it is considered to have an 
empty rescue clause — any exception 
occurring during the execution of the 
routine leads to immediate failure and 
an exception in the caller. If no routine 
in the call chain has a rescue clause, 
the entire execution fails and an appro- 
priate message, recording the history 
of recent exceptions in reverse order, 
is printed. Note the use of assertion 


Effect 
Retry 


Name of exception 


Feature “quasi_inverse”: 
Applied to void reference 


“positive_or_null”: 
Precondition violated 


“Negative_value”: 
Programmer exception 


“Negative_value”: 
Programmer exception 


“square_matrix”: 
Invariant violated 
Routine failure 








tags, when present, in the messages 
shown in Figure 5. 

Not all exceptions cause failure. A 
rescue clause may execute a retry in- 
struction, in which case the body (do 
clause) of the routine must be tried 
again, presumably because a substitute 
strategy is available. This is the resump- 
tion case. 

For example, consider the routine 
in Listing Five, page 125, for attempting 
to write to disk, from a generic class C. 

Here it is assumed that the actual 
write is performed by a lower-level ex- 
ternal routine attempt-to-write, written 
in another language, over which we 
have no control. If this routine fails, it 
triggers an exception, which is caught 
by the rescue clause. This results in a 
retry. Local routine variables are initial- 
ized on routine entry. An integer vari- 
able such as attempts, is initialized to 0. 

The routine write never fails. Its con- 
tract says, “write if you can, otherwise 
record your inability to do so by setting 
the value of attribute write_successful 
to false, so that the client can deter- 
mine what happened.” It is always pos- 
sible to satisfy such a contract. 

The version of write shown in Listing 
Six, page 125 is a variant of the class 
that does not include attribute write_ 
successful. It may succeed or fail. 

In this version, after five attempts, 
the routine terminates through the bot- 
tom of its rescue clause. This means 
the routine fails, triggering an excep- 
tion in the caller. This contract is more 
restrictive than the one shown in List- 
ing Three. It requires that the routine 
be able to write. If this contract cannot 
be fulfilled, the only exit is through 
failure. 


Formal Requirements 
The deeper meaning of the rescue 
clause can be understood in the object- 
oriented context, and with reference 
to the contract of a routine, as expressed 
by assertions. 

The following expresses the require- 
ments on a contractor that implements 
software element e: 


{P} e {Q} 


This means the contractor must write e 
in such a way that, whenever Pis satis- 
fied on entry, Q will be satisfied on 
exit. The stronger P is, the easier the 
contractor’s job (more can be assumed); 
the stronger Q is, the harder the con- 
tractor’s job is (more must be produced). 
Consider routine r with body do, 
precondition pre, and postcondition 
post, in a class with invariant JNV. The 
(continued on page 63) 


Dr. Dobb’s Journal, December 1989 


Cause: 


CALS 


CAUSE introduces 


personal program- 





ete Ore” oe 


ming — a new 
technology that lets 
you create software 
without learning a 
language. With CAUSE, use a graphical 
interface and object-oriented program- 
ming techniques to build applications in 
hours instead of months. Without any 
code or syntax. Users can create those 
elusive solutions. Programmers can 
develop as fast as they can prototype. 
Naturally, CAUSE implies EFFECT. 
EFFECTS are applications written with 
CAUSE, and published by Maxem. 
Submit your CAUSE-generated applica- 
tions to Maxem, and publish software 
without the hassles of marketing and dis- 
tribution, only the hassle of cashing your 
royalty check. Get in touch with the 
future; call Maxem 1-800-336-6296 or 


write Maxem, 7855 South River Park- 
MoM’ way, Tempe, AZ 85284. 


CIRCLE NO. 386 ON READER SERVICE CARD 






Fixed Assets 





Agency Billing 


—OBEFECT 





eu 


AAR NARA NA NENT TINT OTS 


| Shipping/ Receiving 


i siaiidaitieiiiaieaiieiiiiiness 
EFFECT 


Soy Mavrnaaies, 








Accounts Payable 


Asxasnmnnrammnnnarennanennnscntis nannnannoe: 


EFFECT 





Job Estimating 


EFEECT 








Problem Tracking 


_ EFFECT 








Beaten 
Mee 
i bassoon 


Medical 


etme ocomnnmsermr on nent iomamOnenan 


_BEFECT. 


fry tleemring 





Dry Cleaning 


pennies 





Effect: 


‘ Laots Proveetog oe : 





Loan Processing 


| CORRECT 






Personnel 





— EFEECT 


1. Drder Eniyitnsedring 
Ee { 
ae SE ene 4 


Sees aeneeiacraannraneonsanireventyrferisannsninnninsieiattestagy 





Order Entry/ Invoicing 


EFFECT 





Payroll 


EFFECT 





LOLA RENN IO 


Electronic Mail 


EFFECT 





Tax Preparation 


EERECT 





uae Coe 
Chiropractic 


{PORE AARNE A PRR EN RACER EAE 


BRRECT. 







3 Hontidt Store i 
+ s x 3 3 
REY 


l 


{ 
4 


eet at 





Rental Store 








Budgeting 









aint of Sale 


Pre AN NEUEN ARIE AEN OREN ROPE IE 


ERPECT 


Church Accounting 


 oRFECT 





Orthodontic 


etc. 





Lattice Tools & Libraries for 
DOS and OS/2 


We're the company that writes the 
language and the tools. Our libraries 
give you hundreds of ready-to-use 
functions, compatible with our compiler 
and other products. 


Compiler Companion $100 
Ten proven UNIX-like tools provide a 
complete programming environment, 
and reduce file handling tasks, 
regardless of programming language. 


dBC TT & dBC III Plus $250/$500 
Networking & non-networking libraries 
let you write fast C programs to create, 

access and update files compatible with 


dBASE III. 


Communications Library $250 
A comprehensive set of high- and low- 
level functions for asynchronous 
communications programs using 
XMODEM, YMODEM, KERMIT or 
ASCH protocols. 


C-Food Smorgasbord $150 
A selection of utility functions including 
a BCD decimal arithmetic package, I/O 
functions, IBM PC BIOS interface, a 
Terminal Independence Page and 
functions including directory, clock and 
string. 


Curses V Library $125 
84 C screen management functions and 


macros that help you port between 
UNIX System V and the PC. 


SSP/PC $350 
More than 145 subroutines eliminate 
tedious and difficult mathematical 
programming. Includes scientific, 
engineering and statistical mathematical 
routines as extensive and accurate as 
similar packages used on mainframes. 


PANEL Plus with Source $495 
A collection of interactive screen design 
tools plus more than 150 functions to 
help you create application screens. 


HighStyle —-Programmer's 


Publishing Tool $375 . ‘And on top of all this, rpm new optimizer will mak your applications 
HighStyle gives you everything you even faster. ; iL 

need to create attractive, highly polished JM@E@ xe everything, Lattice support is free. Our bulletin Lovey: 
documentation for your programs. _ BIX network support are the best in the business! Lattice C 6.0 even has a a 


Automatically creates tables and charts! a/779y money back guarantee! 


Includes: Word Processor, Page If you're reaching for the top, order today. Lattice C 6.0 will bring you. to 


Previewer, Snapshot Utility, Style of profese iat nad 
Guides, Spelling Checker, Icon Editor, peak of professi programming. 


Bar Code Generator, Font Manager, and *Send to Lattice for a free analysis of the benchmarks. 
more. 


To order Lattice C 6.0, send $250 in 


check or money order to: Lattice, PS 

Inc., 2500 S. Highland Avenue, Suite od 

300, Lombard, IL 60148. Or order 1B = 

by credit card at (800) 444-4309. attice 

FAX # (312) 916-1190, TELEX Professional Programming Tools Since 1981 


532253. 2500 S. Highland Ave., Lombard, IL 60148 


CIRCLE NO. 142 ON READER SERVICE CARD 





EIFFEL 


(continued from page 60) 
requirement on the author of the do 
clause is: 


{pre and INV} do {post and INV} 


In other words, the invariant and the 
precondition can be assumed, the in- 
variant must be preserved, and the post- 
condition must be ensured. Now, con- 
sider a branch rescue, of the rescue 
clause, not ending with a retry. The 
requirement here is: 


{true} do {INV} 


The input condition is the weakest 
possible (hardest from the contractor’s 
viewpoint), because an exception may 
occur in any state. The rescue clause 
must be prepared to work under any 
condition, but the output condition only 
includes the invariant. Ensuring the in- 
variant brings the object back to a sta- 
ble state. Integrity constraints play a 
similar role in data base systems. The 
rescue clause is not, however, con- 
strained to ensure the entire postcondi- 
tion. This is the sole responsibility of 
the do clause. If the contractor satisfies 
the routine’s contract, there is no need 
for the rescue clause. 

This shows the clear separation of 
concerns between the do clause and 
the rescue clause. The former is re- 
sponsible for achieving the contract 
when possible. The latter takes over in 
case the do clause falters. The rescue 
clause restarts the do clause under im- 
proved conditions, or closes the store 
after putting things in order. The re- 
quirements on the rescue clause are 
both harder (a weaker precondition) 
and easier (a weaker postcondition). 


Fine-Tuning the Mechanism 

Those are the basics of Eiffel exception 
handling. In practice, some fine-tuning 
may be needed for particular applica- 
tions. This is done not through the 
language itself, but through the library 
class EXCEPTIONS. Classes needing the 
corresponding facilities should inherit 
this class. 

It is sometimes necessary to treat 
various exceptions differently. Attrib- 
ute exception in class EXCEPTIONS has 
the value of the code of the last excep- 
tion that occurred. Exception codes are 
integer symbolic constants (attributes) 
defined in that class. Examples include 
Precondition (precondition violated) 
and other assertion-related exceptions, 
No_object, No_more_memory, operat- 
ing system signals (Sighup and so on.) 
and others. A rescue clause may con- 
tain a test of the form: 
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if exception=No_more_ memory 
then ... elsif and so on. 


Generally, it is wise to resist the temp- 
tation to attach too much meaning to 
the precise nature of an exception. An 
exception usually points to a symp- 
tom, rather than a cause. 

For programmers who want to define 
and raise their own exceptions, the rou- 
tine raise is available in class EXCEP- 
TIONS. The default handling of certain 
exceptions, especially operating sys- 
tem signals, can be changed by rede- 
fining certain routines from class EX- 
CEPTIONS. By using class EXCEPTIONS, 
application software can access infor- 
mation about the last exception. This 
information includes the exception type, 
its meaning expressed as a plain Eng- 
lish string, and so on. This is particu- 
larly useful for printing informative er- 
ror messages. 


Why Not Make It Right? 

Reliability is a primary concern in any 
serious view of software construction. 
In the object-oriented approach, it is 
even more essential. Reusability of soft- 
ware is meaningless unless the reusable 
components are correct and robust. 
Static typing is an important aspect of 
Eiffel’s contribution to this goal (see 
the article “You Can Write, but Can 
You Type?” in the March 1989 issue of 
the Journal of Object-Oriented Program- 
ming for more on this subject). 

The assertion and exception tech- 
niques described in this article provide 
the complement to static typing. They 
don’t absolutely guarantee that your 
classes will be correct and robust, but 
they sure can help. 


Availability 

All source code is available on a single 
disk and online. To order the disk, 
send $14.95 (Calif. residents add sales 
tax) to Dr. Dobb’s Journal, 501 Galves- 
ton Dr., Redwood City, CA 94063, or 
call 800-356-2002 (from inside Calif.) 
or 800-533-4372 (from outside Calif.). 
Please specify the issue number and 
format (MS-DOS, Macintosh, Kaypro). 
Source code is also available online 
through the DD/ Forum on Compu- 
Serve (type GO DDJ). The DD} Listing 
Service (603-882-1599) supports 300/ 
1200/2400 baud, 8-data bits, no parity, 
1-stop bit. Press SPACEBAR when the 
system answers, type: listings Cower- 
case) at the log-in prompt. 
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The QuickPascal in 





uickPascal 


A look at how the windows in QP’s User Interface use their 
own object-oriented technology 


Joseph Mouhanna and Michael Vose 


riting the user interface for 
a compiler imposes a dif- 
ferent set of problems than 
creating a code generator. 
Presenting the applications 
programmer with an orderly set of win- 
dows and menus streamlines his inter- 
action with the compiler. When de- 
signing this interface, the compiler’s 
authors need to consider visual ele- 
ments, and not machine internals. 


A windowing user interface uses a , 


limited number of variations on a few 
visual elements. These elements include 
windows, dialog boxes, and menus. 
When these components are analyzed, 
one realizes that dialog boxes and 
menus are specialized windows. 
Therefore, a windowing interface 
lends itself to the hierarchical structure 
of object-oriented programming (OOP). 
The match between graphical user in- 
terfaces and OOP emerges because the 
techniques of OOP allow the creation 
of new windows as children of existing 
windows. Doing this requires little ad- 
ditional code. With a few generic win- 
dow classes, specialized subclasses im- 


Michael Vose authors the monthly news- 
letter OS REPORT: News and Views 
on OS/2. He can be reached at P.O. 
Box 3160, Peterborough, NH 03458. 
Joseph Mouhanna is the program man- 
ager for Pascal products and has been 
with Microsoft since 1984. Prior to trans- 
Jerring to the language group in 1989, 
he spent 18 months developing the Mi- 
crosoft right-to-left technology. He can 
be reached at Microsoft Corp., 1 Micro- 
soft Way, Redmond, WA 98052-6399. 
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plementing variations on the overall 
window theme can be created. 

Microsoft used QuickPascal itself to 
write the QuickPascal user interface. 
They did so to obtain the many advan- 
tages of OOP. In addition to code reus- 
ability, OOP techniques cut down on 
debugging and testing time. By mixing 
object-oriented and standard program- 
ming, Microsoft produced, in a short 
span of time, a user interface that will 
be easy to update for future releases 
of QuickPascal. 


Design Considerations 

Good OOP design uses a top-down 
approach to creating programs. Ob- 
jects are derived from general classes, 





and then inheritance is used to create 
ever more specialized child-class ob- 
jects for special purposes. OOP’s use 
of inheritance makes code reusable and, 
as a result, substantially reduces the 
size of programs. OOP techniques re- 
duce debugging time by encouraging 
the use of hundreds of small, simple 
methods, rather than a few large, com- 
plex procedures or functions as in stan- 
dard structured programming. 

One or more parent classes for the 
application reside at the top of the OOP 
design hierarchy. The QuickPascal user 
interface uses a parent window class 
and a parent event-handling class. These 
parent classes contain the information 
and methods basic to all windows, as 
well as information about the event- 
handling functions of the user inter- 
face. The inheritance of these general 
qualities and actions by child classes 
allows the building of all the objects 
needed to implement a consistent user 
interface. 

Child classes inherit the properties 
of their parents without the writing of 
a lot of additional code. Using classes 
and objects also streamlines event han- 
dling. Window environments written 
in classical languages usually use very 
large CASE statements to handle all 
possible events for each window type. 
Microsoft Windows applications, for ex- 
ample, frequently sport CASE statements 
with a dozen or more elements. An 
object-oriented event handler lets the 
different window types inherit all the 
general event handling characteristics 
of their parents, and only adds the new 
code needed to handle special events. 
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ground swell of support is 
rallying behind TIGA-340"™, the 
Texas Instruments Graphics 
Architecture. It and TI’s TMS340 
family are poised to become the 
next standard beyond VGA as PC 
users demand higher performance 
and resolution. 





The PC graphics standard 


anyone Can use 
TIGA™ is a high-performance 


software interface that optimizes 
communications between industry- 
standard 340 family processors and 
the PC host processor. 

With TIGA, hardware and 
software specifications for a PC 
graphics standard are open and 
available from inception — one of 
the reasons why more than 100 
companies have already made plans 
to evaluate TIGA-compatible 
hardware and software products. 


Lowest cost, 
highest performance 


TIGA’s move into the mainstream 


is being fueled by the price of 


TMS34010-based boards falling to 
well below $1,000. In fact, TI’s 
34010 processor is the most 
economical way to implement high- 
performance 1024 x 768 resolution 


PC graphics boards. The faster 








Just as MS-DOS® allows applications to run on any MS-DOS PC using 80X86 processors, 
TIGA allows graphics applications to run on any TIGA display system using a 340X0 


processor. 





speed and greater throughput of the 
second-generation 34020 result in 
even higher performance boards. 


Clear migration path 


TIGA provides a common platform 
upon which graphics applications 
can take advantage of the process- 


ing power of the TMS340 family. 





Software developers no longer 
have to rewrite code in order to 
migrate to higher performance 
hardware. Software applications 








that run through TIGA on the 
34010 processor run on the upward- 
compatible 34020 as well as on 
future 340 family members. 
Hardware developers benefit 
from wide software support, 
reduced system development time 
and costs, and easy differentiation 


of products. 
At present, TIGA supports DOS- 
based PCs, with UNIX™ and OS/2 


forthcoming. 
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Applications portability 
TIGA allows an application to be 
ported to a wide variety of 340- 
based graphics systems with a single 
software driver. Applications will 
run without modification regardless 
of resolution, color content, or 
specific 340 family processor. 

For example, the Microsoft® 
Windows driver, which is part 
of the TIGA Software Porting 
Kit (see next page), allows 
Windows to run without 
any change on boards 
having resolutions from 
640 x 480 to 4096 x 
4096 and color 
content from 
monochrome to 
256 colors 
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Speeds time to market 


Now hundreds of popular 
applications can be made 
available for your new graphics 
product almost instantly using 
TIGA and Microsoft Windows. 
Porting TIGA to a 340-based board 
typically takes less than one man- 
week of effort. 





More than 150 OEMs have 
made the TMS340 graphics family 
their own. That wide acceptance, 
coupled with open architecture and 
a defined migration path, makes 
the future for TIGA-340 and the 
TMS340 family rich and promising. 
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being joined by a group of new- 
generation products that will bring 
the higher levels of workstation per- 
formance to PCs. 

Chief among these is the 
TMS34020, a programmable, 32- 
bit processor up to 20 times faster 
than the 34010. 

For use with the 34020, the 
TMS34082 will perform floating- 
point operations up to 100 times 
faster than current PC coproces- 
sors. It is the industry’s first 
eraphics floating-point coprocessor. 
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(continued from page 64) 

This inheritance usually makes code 
much more compact and efficient than 
the more conventional programming 
approach. 

However, this is not always true. A 
standard OOP event handler might send 
a “redraw yourself” message to a win- 
dow previously covered by a dialog 
box or pull-down menu. QuickPascal 
does not always follow this standard 
approach for one simple reason — 
speed. Instead, QuickPascal’s event han- 
dler sometimes stores in a buffer a copy 
of the image that lies underneath the 
dialog box. When the dialog box dis- 
appears, the event handler transfers the 
image stored in the buffer back onto 
the screen. 

QuickPascal uses this buffer-image tech- 
nique to make its user interface more 
responsive. Redrawing an image from 
a buffer updates only the portion of the 
screen that has changed. Telling a win- 
dow object to redraw itself means re- 
drawing the entire image, which is much 
more time consuming. The buffer-im- 
age technique is an “optimization” of 
OOP practice. 

This optimization addresses the few 
problems that result from using OOP 
techniques. If creating a class and an 
associated method to perform a task 
requires more bytes or machine time 
than a standard procedure, sticking with 
a more traditional procedure may im- 
prove a program’s performance. 

For this reason, QuickPascal’s user 
interface does not use objects and their 
associated methods to the exclusion 
of standard procedures. Where stan- 
dard procedures complete a task with 
less programming overhead than a 
method, QuickPascal’s interface uses 
conventional procedures. 


The Parent Classes 

QuickPascal’s user interface code uses 
two elementary classes. The subclasses 
used to spawn the objects that com- 
prise the user interface are derived from 
these classes. One parent class receives 
information from the keyboard and 
mouse (input), and the other displays 
information on the screen (output). 
These two parent classes comprise the 
top of the class hierarchy. 

The primary elements of these classes 
include event handling for input, and a 
variety of windows, dialog boxes, and 
menus for screen output. These basic 
parts interact as indicated in Figure 1. 

The two parent classes in the Quick- 
Pascal environment are called TWin- 
dow and TApplication. These names 
are familiar to anyone who has pro- 
grammed in Object Pascal or with the 
Macintosh’s MacApp class library. The 
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T in these class names means “type,” 
and is a naming convention established 
by Apple Computer. The 7Window class 
and its descendants handle all screen 
drawing, including windows, menus, 
and dialog boxes. The TApplication 
class and its children interpret keyboard 
and mouse events and send them to 
the appropriate window object. All of 
the code classes in the QuickPascal 
user interface devolve from these par- 
ent classes, as shown in Figure 2. 

The 7Window class (see Listing One, 
page 126) contains variables and meth- 
ods basic to all window functions. These 
events include opening, drawing, mov- 
ing, mounting, unmounting, printing, 
coloring, scrolling, responding to mouse 
events, and closing windows. Mount- 
ing refers to bringing a window to the 
front of the screen and making it the 








| Keyboard events 


Key pressed 
ALT pressed 
ALT released 
Physical key 





Mouse events 


Caps pressed, released 
L Mouse pressed, released 
R Mouse pressed, released 
NUM pressed, released 


EVENTS STRUCTURE 


Events collection (GetEvent) 


active window. 

TWindow serves only as a parent to 
other classes. QuickPascal’s user 
interface code declares no objects di- 
rectly from TWindow. TWindow’s child 
classes — TDialogBox, TDocument, T- 
MenuBar,and TSubMenu — create their 
own distinct types of windows, and all 
of the QuickPascal interface window 
objects are derived from these child 
classes. 

The TWindow definition contains 
mouse handling methods that are com- 
prised simply of BEGIN and END state- 
ments. The child classes of TWindow 
inherit these blank methods and over- 
ride them with their own mouse han- 
dling method definitions. This poly- 
morphism allows a TApplication ob- 
ject to send the same message to any 
TWindow object (described shortly.) 


Events disposal 
(SendEvent) 


Analyze event and 
send to appropriate 
window, or take 
appropriate action. 
Messages sent 
include mouse 
coordinates, keys, a 
click on a window 
border, etc. 


Mouse event 








Received normally by the window on top 
of which the mouse event occurred 
unless one of the windows has complete 
control of the mouse. In that case, all 
mouse events go to that controlling 
window. Send-Event calls the 
appropriate method within that window 
object. 


Is window a dialog box? In that 
case, permit events inside the 
top dialog box only. 


Keyboard event 


Send to top 
window only 





Figure 1: A functional diagram of the QuickPascal interface’s event 
handling mechanism 
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TDialogBox 
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THelpDialogBox TWatchWindow 
TBPDialogBox 
TModifyDialogBox 


Figure 2: The QuickPascal user interface’s object family tree 
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The type of the 7Windouw~-derived ob- 
ject — dialog box, document, or 
menu — doesn’t matter. Each of these 
objects specifies how to deal with these 
mouse-event messages. 


The TWindow Child Classes 


Most of the dialog box objects used by. 


the QuickPascal user interface come 
from the TWindow child class TDialog- 
Box. This child class inherits all the 
qualities of TWindow, and adds new 
methods for drawing buttons, edit fields, 
and list boxes (see Listing Two, page 
126). It stores the window’s current 
state (open, closed, waiting for input, 
and so on) in its instance variables. 

Because the QuickPascal interface 
uses some specialized dialog boxes, 
several other child classes exist to deal 
with those selected cases. One of these 
child classes is TFileDialogBox. 

While inheriting all the method func- 
tionality it needs from TDialogBox, TFile- 
DialogBox adds two more instance vari- 
ables. These variables store the default 
and current document extension and 
the path to the current directory. These 
new variables make the file dialog box 
especially convenient to use. Without 
them, a user would have to reenter the 
path name every time a file dialog box 
opened, and the default document ex- 
tension would always be the same re- 
gardless of the most recently used ex- 
tension. 

TPrintDialogBox also adds instance 
variables to store pointers to the cor- 
rect document and to the text block 
location. They tell QuickPascal what 
window to print from and what text to 
print in the active window. 

Help dialog boxes use TDialogBox's 
methods, but need instance variables 
to describe the help topic called and 
to indicate the help page, the first line 
of the page, and the number of lines 
on a page. 

The BP in TBPDialogBox means 
“Break Point.” This object is used by 
QuickPascal to let the user set break 
points in the code they are editing. The 
break point dialog box adds three in- 
stance variables to the ones it inherits 
from TDialogBox. The additional vari- 
ables store a break point location, the 
condition on which to halt execution, 
and the type of break point (condi- 
tional and unconditional). 

Dialog boxes that need custom key- 
board and mouse actions use the 7Modi- 
JyDialogBox class. Each of the meth- 
ods in this class overrides the methods 
of its parent. 

TDocumentand its children produce 
the screen items traditionally consid- 
ered windows: The program editing 
windows, the QuickPascal Advisor help 


window, and the debug window. TDocu- 
ment and its children control all editing 
windows. The TDocument class clearly 
shows the advantages of OOP. It greatly 
simplifies the moderately complex task 
of creating a custom text editor. TDocu- 
ment builds on TWindow’s basic ac- 
tions by adding the methods necessary 


Good OOP design uses 
a top-down approach 
to creating programs 





for editing text. TDocuments child 
classes then modify the editor features 
they inherit to suit their own needs. 

The TDocument class treats docu- 
ments (program files, help files, and 
others) as a series of lines made up of 
separate characters. TDocument uses 
instance variables to track the relevant 
data about a document. The source 
code for TDocument demonstrates how 
easy it can be to design a custom file 
format. All that’s required is the decla- 
ration of a new child of TDocument 
with an altered data structure. Quick- 
Pascal will read files that use this new 
structure as long as the GetPhysLine 
method still returns a single line of text. 

THelp Window is identical to TDocu- 
ment except that it overrides the 
GetPhysLine method. THelpWindow'’s 
version of GetPhysLine retrieves data 
from QuickPascal’s help (.HLP) files. 

THelpWindow also makes minor 
changes to the GetCharand LeftMouse- 
Press methods to keep any user activi- 
ties from altering the contents of the 
help screen. All other window-related 
activities function normally. 

The TEditWindow class describes 
QuickPascal’s standard editing window, 
in which users write their programs. 
The methods of this class override TDocu- 
ments GetChar, LeftMousePress, and 
DrawScreen methods. This class in- 
cludes three new methods, which take 
care of opening files, closing files, and 
saving data to a file. 

A menu bar is a specialized window. 
TMenuBar inherits all of TWindow’s 
methods without modification, with one 
exception: 7MenuBar alters the Draw- 
Window method to handle special 
Menu cases, such as graying out of 
menu items that cannot be accessed, 
colors, menu text, and so on. 7MenuBar 
also uses a pointer to any 7MainAppli 
objects, the principal object perform- 
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(continued from page 66) 
ing menu management. 

A submenu is the pull-down portion 
of a menu. It is the part that appears 
when a user clicks on an item in the 
menu bar. Like 7MenuBar, TSubMenu 
overrides the DrawWindow method it 
inherits from TWindow. It also uses a 
pointer to an object of type TMain- 
Appli to obtain other menu manage- 
ment functions. 


The TApplication Children 

The TApplication class is a good exam- 
ple of a parent class serving as the basis 
for other classes. QuickPascal’s user 
interface declares objects from the child 
classes of TApplication, but does not 
declare any objects directly from TAp- 
plication itself. 

When a window object of the TWin- 
dow subclass TDialogBox (or one of its 
descendants) opens, an object of class 
TDialogBoxAppli also opens to handle 
events within a dialog box. TDialogBox- 
Appli overrides its inherited GetEvents, 
Handlekvents, and DrawStatusLinemeth- 
ods in order to handle events special 
to dialog boxes. TDialogBoxAppli also 
adds an instance variable that points 
to the type of dialog box created. 

Dialog box objects from both win- 


QUICKPASCAL 


dow and application classes exist only 
as long as the dialog box remains open. 
When the dialog box closes, QuickPas- 
cal disposes of both objects. 


Telling a window object 
to redraw itself means 
redrawing the entire 
image 


Like TApplication, TMainAppli illus- 
trates one of the principles of good 
OOP design. TMainAppli serves pri- 
marily as a foundation for its child, 
EditAppli, but remains general enough 
to allow for easy future expansion. If 
Microsoft decides to add another type 
of window to the QuickPascal user in- 
terface, TMainAppli will make it easy 
to add a new event handling class for 
that window. 

EditAppli handles the bulk of the 
events in the QuickPascal environment. 


It keeps track of the number of open 
windows, plus the handle of the active 
window, and watches for menu activ- 
ity. EditAppl?s objects work with the 
window objects for TDocument, 
TMenuBar, and TSubMenu. EditAppli 
inherits almost all its methods and in- 
stance variables from TMainAppli. 


Interacting Objects 

TWindow and its child classes work in 
tandem with the TApplication classes. 
Every TWindow-derived object has a 
companion TApplication-derived ob- 
ject that handles the events for that 
window. A TApplication object can be 
associated with more than one TWin- 
dow object. TApplication and its chil- 
dren have instance variables that store 
mouse events, and timer events, and 
the current state of the keyboard. The 
children’s methods acquire and dispatch 
these various events. 

TApplication’s child classes manage 
special event handling features (such 
as TDialogBoxAppli not allowing mouse 
clicks outside of a dialog box). TAppli- 
cation, however, has methods to pro- 
cess all the normal user activities that 
occur in a window and passes those 
methods on to its child classes through 
inheritance. 
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(continued from page 68) 

The TApplication classes and TWin- 
dow classes work closely together. 
When QuickPascal opens and initial- 
izes a new TApplication-derived object 
and its corresponding TWindow-derived 
object(s), the methods set up a loop 
between the objects. The TApplication 
object’s GetEvents method waits until 
either a keyboard or mouse event oc- 
curs. When something happens, Get- 
Events sets its instance variables and 
then ends. The TApplication object then 
transfers control to its associated TWin- 
dow object, activating its HandleEvents 
method. The 7Windou~derived object’s 
methods (My Window.LmousePress, for 
example) checks the state of the win- 
dow’s instance variables and responds 
to the event that just occurred. This 
usually results in a call back to one of 
the TWindow-derived methods, but can 
also mean transferring control to the 
compiler or to some other activity. 


How It All Works 

A look at a fragment of the QuickPas- 
cal interface code provides a glimpse 
into this object-oriented universe. List- 
ing Three (page 127) shows a class 
definition, an instance of an object, 
and the use of that object within a 
Pascal procedure. The first part of List- 


ing Three illustrates how child classes 
become defined, inheriting behavior 
from their parent classes and overrid- 
ing the methods of those parents where 
necessary. a 

The two instances of EditWindow 
in the definition of class EditWindow 
set up a linked list of edit windows 
that can be open at the same time. 
EditWindow-class objects use (among 
others) the OpenFile method, which 
specifies what happens when an ob- 
ject of this class needs to open a file. 
OpenFile names the object of type Edit- 
Window for which it can open a file Cin 
this case, Edit). 

As the code fragment in Listing Three 
shows, a class is first defined by de- 
scribing its methods and naming its 
instance variables. Next, an object of 
that class is created. This process is 
similar to declaring a variable. Then, 
some memory for the named object is 
allocated using the New keyword and 
the name of the object. Finally, a mes- 
sage is sent to the object by calling one 
of its methods from within the main 
body of a program. 

Using this technique, code modules 
that are easy to debug and modify can 
be built. The internal operation of an 
object can later be changed without 
worrying about “breaking” the rest of 


your program in its interaction with the 
changed object. Also, new versions of 
existing objects can be created by de- 
fining a child class with new or over- 
riding methods. The building blocks 
that classes and objects provide make 
creating programs a lot less risky than 
it used to be. 


Availability 

All source code is available on a single 
disk and online. To order the disk, 
send $14.95 (Calif. residents add sales 
tax) to Dr. Dobb’s Journal, 501 Galves- 
ton Dr., Redwood City, CA 94063, or 
call 800-356-2002 (from inside Calif.) 
or 800-533-4372 (from outside Calif.). 
Please specify the issue number and 
format (MS-DOS, Macintosh, Kaypro). 
Source code is also available online 
through the DD/J Forum on Compu- 
Serve (type GO DDJ). The DDjJ Listing 
Service (603-882-1599) supports 300/ 
1200/2400 baud, 8-data bits, no parity, 
1-stop bit. Press SPACEBAR when the 
system answers, type: listings (lower- 
case) at the log-in prompt. 
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An Object-Oriented 
Logic Simulator 


Wire-wrapping and breadboarding made easy 


s a bench technician in a re- 
search and development labo- 
ratory, my primary job was to 
build prototype circuits with 

i . digital logic devices, and to 
aake sure that the prototypes worked. 

After migrating into the world of soft- 
ware, I saw no reason why my com- 
puter could not simulate those same 
digital logic circuits. When I discov- 
ered object-oriented programming, I be- 
came more and more convinced that it 
was both possible and practical. 

The project, which I named LogicLab, 
was intended from the start to simulate 
not just logic devices, but the complete 
bench environment. LogicLab was re- 
quired to provide the simulated equiva- 
lent of four aspects of that environment: 







1. A well-stocked parts cabinet con- 
taining standard integrated circuit 
(IC) devices (74LS00, and so forth); 

2. A method to connect the pins of the 
ICs together (commonly called a 
“breadboarding system”’); 

3. A source of signals (clocks, pulses, 
switches, and so on) that could be 
used to simulate inputs to the circuit; 

4. A logic analyzer that I could use to 
monitor the activity within my cir- 
cuit for debugging purposes. 


Ken Ayers is a self-educated software 
engineer. He is currently employed by 
Industrial Data Technologies of Wester- 
ville, Ohio. His interests include com- 
puter graphics, machine intelligence, 
and OOP systems. He can be reached 
at 7825 Larchwood St., Dublin, OH 
43017. 
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At first glance, these four simulations 
appear simple. If implemented prop- 
erly, they would indeed emulate the 
workbench environment. But when 
these simulations were expanded to 
the level of detail required for an effec- 
tive implementation, the task seemed 
overwhelming. 

I had previously considered tackling 
this project with a combination of C 
and assembly language, and estimated 
that the time required to produce a 
prototype in those languages would 
be about 8 to 12 months. When I used 
Smalltalk to write LogicLab, I had a 
working version of the project in roughly 
100 hours! I spent much of that time 
learning to use the incredibly complete 





environment provided with Smalltalk/ 
V. The environment includes more than 
100 classes and some 2000 methods, 
and source code is provided for every- 
thing (except the compiler itself!). After 
building the prototype, I invested an- 
other 150 (or so) hours on the project 
in order to give LogicLab a major over- 
haul that improved both performance 
and the user interface. 


A Glance Inside LogicLab 
The heart of LogicLab — the simula- 


more than 20 object classes. Nearly all 
of these object classes correspond di- 
rectly to real-life counterparts on the 
design bench. Some of the typical simu- 
lated devices are a toggle switch (List- 
ing Two, page 136), a pulser switch 
(Listing Three, page 136), and a logic 
device (Listing Four, page 137). Other 
simulated devices include buttons, 
switches, logic probes, input signals, a 
logic analyzer, and an assortment of 
logic devices. A list of the class hierar- 
chy for LogicLab is given in Figure 1. 
Figure 2 shows a typical display pro- 

duced by LogicLab’s logic analyzer. 
LogicLab is organized into two dis- 
crete application phases. The first phase 
is the breadboard. In this phase, the 
user installs devices into the circuit and 
makes the connections between pins. 
This process is very similar to the pro- 
cess of wire-wrapping, and is driven by 
a series of pop-up menus and prompts 

for device names and pin numbers. 
The second application phase in Logic- 
(continued on page 75) 
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C-TRIEVE/Windows 
The file manager for MS Windows 


callable from C and C++ 


Develop your applications using C- 
TRIEVE/Windows and move to the operating 
environments of your choice, whether it’s DOS, 
Xenix, Unix, or DESQview. C-TRIEVE/Win- 
dows is a library of routines for managing data. 
It provides a complete set of tools for the 
programmer to build custom data management 
applications. 

C-TRIEVE/Windows uses Index Sequential 
Access Method (ISAM) to provide low-level ac- 
cess to files. It gives the programmer precise 


Languages 
C, C+ (:: 


MS Windows 
Environments 





control over how the data is handled. The data 
handling routines can be embedded directly in 
the flow of custom applications. C- 
TRIEVE/Windows extends the X/Open stand- 
ard to provide journaling, Transactions, and 
Locking in the multi-user environments. 

C-TRIEVE/Windows allows you to build ap- 
plications in C or C++. The choice of environ- 
ments, adherence to standards, and options of 
languages make C-TRIEVE/Windows the most 
valuable file manager in the industry. To top all 
this, C-TRIEVE/Windows is the native file 
manager of our Relational Database Manage- 
ment System, C-SQL. 


PRO Pp UC FS 





C-SOL for dBASE 
Complete SQL for dBASE 


available now 


C-SOL supports the different databases you 
work with everyday and unifies them for con- 
sistent access. C-SQL ensures that you can keep 
your old applications running while developing 
new applications using our SQL/API. You can 
move to SQL in small steps, or giant leaps. 

C-SQL is compact, flexible, full-featured 
RDBMS, designed for multiple gateways to 
databases such as Oracle and dBASE, file 
managers like Btrieve and ctree, and other files 
including spreadsheets and documents. You get 
a single command SQL access, for example, to 
dBASE and Oracle files anywhere in your net- 
work. Plus you get features similar to IBM’s 
DB2, high-level interfaces through industry 
standard SQL/API, full transactions and jour- 
naling, and a powerful relational report writer. 

SQL/API allows you to embed SQL state- 





ments in your C programs, insuring portability 
across databases and environments. Since SQL 
performs all the data management functions in 
your applications, you save on application 
development time too. 


To order : (800)-245-8840 
For info: (516) 767-2233 
FAX: (516)-767-9067 


ImageSoft, Inc. 
2 Haven Ave, Port Washington, NY 11050 


A wholly-owned subsidiary of PCPI Inc. 
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What we added to our 
function libraries is nothing 
compared to what we eliminated! 


Greenleaf relieves 
missed deadlines, 
budget overruns and a 


lot of grunt work with our 
heavy-duty, fail-safe features. Your appli- 
cations come alive quickly to use the full 
horsepower of today’s hardware. And, 
because much of our code is in assem- 
bler, your problems will be smaller and 
more efficient. Fewer than half of our 
users ever call tech support because we 
have clearly documented code that 
works — and that saves you money 
and aggravation. 

Professionals everywhere trust these 
C tools — they are standards of depend- 
ability at such firms as EDS, AT&T Bell 
Labs, IBM, GE, GM and CitiCorp. They 
trust Greenleaf’s seamlessly integrated 
development tools to cover many areas 
of programming. You can avoid the pain 
and suffering of combining bits and 
pieces of diverse origin when you use: 


¢ Greenleaf Functions v4.00: DOS, low- 
level interfaces, parallel & serial I/O, strings, 
general library for C. S229 


¢ Greenleaf SuperFunctions: EMS, 


Mouse interfaces, time/date, advanced DOS, 
windows, menus. S299 


¢ Greenleaf CommLib: Industry standard 
interrupt driven asynchronous comm, up to 17 
ports, multi-port board support, many features 


and innovations. S299 


¢ Greenleaf DataWindows v2.1: Logical 
windows, data entry, extensive menus now with 
mouse, dozens of unique features and innova- 
tions. Available for MSDOS, OS/2, Unix and 
Xenix. S395 


¢ Greenleaf Business MathLib: Exact 
decimal math, extensive advanced business 
math — amortization or depreciation table takes 
just one function call. S395 


¢ Greenleaf DataMath: Interface MathLib 
with Functions, DataWindows, SuperFunctions — 
unique 3-attribute number display. $75 


¢ Greenleaf ViewComm: Full featured 
serial data analyzer runs PC up to 115 KBaud 
with triggers, datascope, breakout and review 
modes. Same features as dedicated test 
equipment costing thousands. $54.9 





¢ Greenleaf MakeForm: Screen generator 
for DataWindows, unique form file, cut-and- 
paste, multi-file features. $125 


Greenleaf supports all major C com- 
pilers and memory models. Source code 
is included, and you pay no royalties. 
Raima db-Vista-III database tools are alsc 
available. To eliminate those nagging 
aches and pains, call now for free infor- 
mation, demos or to order: 


1-800-523-9830 


In Texas and Alaska, 214-248-2561 
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C-ISAM* Compatible 


Lab is the logic analyzer. In a hardware 


workbench environment, the logic ana- UPCOMPATIBLE 
lyzer is used as a testing and debugging WITH C-ISAM* 


tool. The logic analyzer has a number ® Both use compatible function calls 
@ Both use compatible datafiles 
@ Both work the same files at run-time 


of probes (LogicLab’s logic analyzer 
has eight probes) that can be connected 
to various points in the circuit (usually 


to pins on ICs). While the circuit is : WE ADDED: 
@ Extended types and natural ints 
® Strings 
Smalltalk lets you MAKES CURSES @ Improved file integrity checker 
: ] : 
transform ideas into obsolete! peels : 
@ 'W’ is awindowing library for 'C’ @ A complete (B+ tree) filing system 
functional extensions of © 'W’ gives you prioritized windows ¢ Manages multiple keys 
. . @ 'W’ offers complete control of @ Uses read only record locking 
the environment itself any terminal PRICE INCLUDING SOURCE: 


‘W' drives the DOS Memory map ® $595 (U.S.) for UNIX* & DOS 
EEA @ 'W’ has line graphics and bells 
@ ‘W’ has soft keys 
@ 'W’ offers ‘hot key’ control 


operating, the logic analyzer records 
P 8 8 y @ 'W’ prints screens even in UNIX* 


and displays the states monitored by 





each probe. The output is a timing @ Describing terminals is much easier 
diagram that illustrates the relationships with ‘W' than termcap 

between signals in the circuit. A techni- @ It's easy to port from curses to 'W’ 
cian uses this information to determine ® $295 (U.S.), you get SOURCE for 
if the circuit is functioning properly. If UNIX* & DOS 

the circuit is not functioning properly, 





this information is used to identify where CIRCLE NO. 102 ON READER ——- CARD 
a problem (a bug!) might be found. 


Because LogicLab is a simulation, 


the process of using the logic analyzer 
is handled a little bit differently than K EDIT 4 0 
in a hardware circuit. LogicLab simu- @ 


lates time in discrete steps. In essence, ‘aid 
celica iC || MEW TEXT EDITING POWER 
pins and calculates the corresponding : 


output states. After LogicLab completes 


KEDIT is a powerful, general purpose 
text editor for the IBM PC, PS/2, and 
compatibles that supports the editing 
of multiple ASCII files in multiple win- 
dows, sophisticated block move and 
copy operations, and reprogram- 
mability of the keyboard through 
keyboard macros. The latest version, 
KEDIT 4.0, provides these new features: 


Object 
Button 
MomentaryActionButton 
ButtonPanel 
VariableMenu 
EmptyMenu 


Timeinterval 
LogicNode 
LogicProbe 


MEMS expanded memory support 
that allows editing of larger files. 


m Selective line editing capabil- 
ity compatible with XEDIT’s ‘ALL’ 
command. 


m Enhanced programmability with 
improved interfaces to Mansfield’s 
Personal REXX macro processor and 


MANSFIELD a built-in REXX subset (KEXX). 


@ IBM VGA and Enhanced Keyboard 


P.O. Box 532, Storrs‘CT 06268 SUPPOT. 
(203) 429-8402 Proven in operation since 1983, KEDIT 
KEDIT Version 4.0 is available at Is unique In its support of many of the 
$150;05/2 version includes DOS commands and features found in 
version) is $175. Add $3 shipping. XEDIT, IBM’s mainframe text editor for 
MC, VISA, American Express. the VM/CMS system. Versions of KEDIT 


KEDIT is a trademark of the Mansfield Software 4.0 are available for both DOS and 
Group, Inc.; IBM and IBM PC and PS/2 are trade- 
marks of International Business Machines. OS/2. 


LogicComponent 
LogicDevice 


N74LS00 


LogicSignal 
ClockInput 
Constantinput 








LogicSwitch 
PulserSwitch 
ToggleSwitch 


LogicAnalyzer 
LogicLab 





Figure 1: LogicLab’s class hierarchy 
CIRCLE NO. 289 ON READER SERVICE CARD 


Dr. Dobb’s Journal, December 1989 73 


LOGIC SIMULATOR 


(continued from page 74) 

the calculation, it pretends that one 
nanosecond (a billionth of a second) 
has passed, and then repeats the pro- 
cess. 

Between nanoseconds, LogicLab per- 
forms housekeeping chores — such as 
updating the timebase, recording the 
states at the probes, and updating the 
timing diagram display. 


The State Connection 

One object class — the LogicNode class — 
performs the majority of the work dur- 
ing a simulation. This class simulates 
the electrical connections within a cir- 
cuit. Each pin of a simulated logic de- 
vice (most devices have 14, 16, or more 
pins) is associated with a LogicNode; 
each input signal has a LogicNode; and 
the private data for each switch or push- 
button device includes a LogicNode. 

The LogicNode class is a good ex- 
ample to use for demonstrating the close 
correspondence between physical ob- 
jects and their software counterparts. 
Figure 3 shows the conceptual organi- 
zation of pins on an IC. 

A characteristic of hardware logic de- 
vices is that a change in an input signal 
requires a finite amount of time before 
the corresponding change appears at 
the output. This delay is known as the 
“propagation delay.” The length of the 
propagation delay is determined by ex- 
amining the specifications (data sheets) 
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for a particular type of device. 

In a hardware logic device, the propa- 
gation delay occurs within the logic 
elements (transistors, diodes, and so 
forth) inside the device. Because of 
different signal path lengths within an 


I already knew the 
relationships between 
logic devices, signals, 

logic probes, and 
analyzers. Smalltalk let 
me express those 
relationships essentially 
intact 


IC, the propagation delay at an output 
can often differ, based upon which 
input signal is present. (For example, 
in a typical flip-flop, the delay from the 
reset input to the data output is differ- 
ent than the delay from the clock input 
to the data output.) 

To accommodate this phenomenon, 
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Figure 2: A typical display produced by LogicLab’s logic analyzer 
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Figure 3: Anatomy of a LogicNode 
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I have modeled the propagation delay 
as an integral part of the electrical con- 
nection rather than as a part of the 
device. When a new IC object is cre- 
ated, each of its pins is assigned a delay 
value by the initialization method for 
that device class. 

Each LogicNode maintains a record 
of both its internal and its external state. 
In this case, the “external state” is the 
(high or low) state that actually ap- 
pears at the pin of the device. The 
“internal state” is the state that is pre- 
sent at the logical elements of the de- 
vice. Each LogicNode also keeps a rec- 
ord of its most recent internal state. 
This extra state record is essential to 
the simulation of edge-triggered de- 
vices, such as flip-flops and counters. 

In the case of LogicNodes that are 
associated with output pins, a change 
in the internal state (as the result of a 
logical computation) triggers a propa- 
gation delay counter. If the internal 
and external states are still different 
when the counter reaches zero, the 
internal state appears at the output — 
that is, the internal state’s value is stored 
in the node’s external state variable. 
During each simulation cycle, an out- 
put state is broadcast to all other nodes 
to which that node is connected. 

This brings us to another point. An 
isolated IC pin is of little use. An IC pin 
must be connected to other pins, input 
signals, or output devices in order to 
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TOPSPEED C 


The next generation 


53 ee 


TopSpeed C. Compiler and library conform 
100% with proposed ANSI standard. Source compat- 
ible with MS C and Turbo C (where ANSI compat- 
ible). Library is a superset of both MS and Turbo C’s 
libraries. Extensions include: Time- sliced scheduler 
for concurrent functions. Powerful text window 
management. Borland text windows supported. 
MS’s graphics, plus: Bar chart & polygon plotting, 
standard formatted text IO to graphics windows. 
Interface to Borland’s Graphics Interface (BGI). 
Mouse support. All BIOS and DOS calls supported. 
Common UNIX calls. 6 memory models plus user- 
definable memory models. Smart linker includes 
only functions and data used in the final program. 
Optional run-time checks include overflow, stack, 
array bounds, and pointer checks. Run-time and 
compilation errors automatically pinpointed in 
source code. 


Common optimizing code generator. All 
compilers produce highly optimized code using the 
same code generator. 8086/286/386 specific code. 
Automatic optimal register allocation. Common 
Sub- expression Elimination. Expand any function as 
inline code. Pass parameters in registers (optional). 
Inline 80x87 code or emulation. 


Automatic make. Fully automatic make with 
version control recompiles and rebuilds EXE, LIB 
and DLL files as necessary without the need ofa make 
script. Make dependencies are described by project 
files, which simply list the objects to be included, as 





‘MODULA-2 


ao RR ROS Naan 


ER (TOPSPEED, MASM, TASM) 
RCE-LEVEL DEBUGGER 


well as the names of other dependent projects. One 
singlemake canresultin multiple compilations using 
different compilers and/or assemblers, linking and 
building of libraries, DLLs and an EXE file. 


Seamlessly integrated environment. Up to 
10 active editor windows, each witha capacity of 1/2 
MB source code. Compiler errors and warnings pin- 
pointed in source code; automatic file-switch when 
stepping between errors or warnings. All menus and 
hot-keys redefinable. By default, editor commands 
compatible with Turbo and SideKick. Keyboard 
macrosa la SuperKey. Cut and paste betweer. editors, 
help system, and directly from screen memory. 
Multi-file search commands, programmer’s calcu- 
lator, built-in ASCII, key scancode, and color tables. 
HyperText help system with library reference. 


Extended and OS/2 Editions. These editions 
include: Support for Microsoft Windows. DOS 
Dynamic Link Libraries. Full source code to libraries. 
Start-up assembler code. High-speed Assembler is 
fully integrated in the environment. Disassembler. 
Program execution profiler. Code locator for embed- 
ded systems programming. Watch utility for viewing 
any selection of DOS calls as they are executed. 
Programmer’s interface to debugger. Post Mortem 
Debugger. And more. OS/2 Edition has full support 
for Presentation Manager. 


TopSpeed and TechKit are trademarks of Jensen & Partners Interna- 
tional. Other brand and product names are trademarks or registered 
trademarks of their respective holders. 
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TOPSPEED C: 


Standard Edition $199 
(DOS Compiler & VID) 


Extended Edition $395 
OS/2 Edition $495 


Call on TopSpeed Modula-2 compiler 
(with objects) & toolkits. 


TO ORDER: 
In the US., call: 
1-800-543-5202 
In Canada, call: 
1-800-543-8452 


Call on shipping & handling 
charges & volume discounts. 
VISA/MC accepted. 


30-day unconditional 
money-back guarantee. 


Jensen & 
Partners 
International 





1101 San Antonio Road, Suite 301 
Mountain View, CA 94043 
Phone: (415)967-3200 

FAX: (415)967-3288 


In England & Europe contact: 
Jensen & Partners UK Ltd., 63 Cler- 
kenwell Road, London EC1IM 5NP. 
Phone: (01)253-4333. FAX: 
(01)251-0141. C Standard Edition 
£149; C Extended Edition £295; 

C OS/2 Edition £370. Call on 
handling & VAT charges, and 
TopSpeed Modula-2 product prices. 


(continued from page 70) 

perform a useful function. Each of Logic- 
Lab’s simulated pins maintains a list of 
the other LogicNodes that form its con- 
nection chain. The node’s private data 
contains the identity of its successor 
and its predecessor nodes. This infor- 
mation allows an output pin to access 
all of the input pins that are affected 
by the output pin’s signal. 

Listing Five (page 138) is the source 
code for the output method imple- 
mented in the LogicNode class. This 
method detects changes in the node’s 
internal state, times the propagation 
delay, and broadcasts the current ex- 
ternal state along the node’s connec- 
tion chain. The output method is in- 
voked at each simulation cycle, once 
per simulated nanosecond. 


Putting It All Together 

Ultimately, LogicLab simulates a cir- 
cuit. Somewhere along the line, it must 
simulate logic devices. Listing Six (page 
138) is the simulation method found 
in the class N74LS00. A hardware 74LS00 
device is commonly known as a “Quad 
2-Input NAND gate.” This name indi- 
cates that a single IC in this device 
contains four logic gates. The output 
of each gate is determined by logically 
ANDing two inputs and then negating 
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that operation — hence the name “NOT- 
AND,” or “NAND.” 

The primary characteristic of this type 
of gate, which is exploited by the simula- 
tion, is that its output is low only when 
both inputs are high. 

In LogicLab, one of the variables in 
each logic device is an array of Logic- 
Nodes. In Listing Six, the statement (pins 
at: 1) isHigh fetches the LogicNode 
from the first element of the device’s 
pins array. The message isHigh is then 
sent to that LogicNode. In response to 
the isHigh message, the LogicNode re- 
turns either a true or false value, de- 
pending upon whether the node’s in- 
ternal state is high or low. 

Most simple logic gates can be simu- 
lated in a similar manner. More com- 
plex functions, such as flip-flops and 
counters, can also be simulated in the 
same general way as long as you rec- 
ognize that latched devices must re- 
member their previous state between 
simulation cycles. 

As a test of LogicLab’s ability to simu- 
late an actual circuit, I breadboarded 
the simple divide-by-three counter 
shown in Figure 4. The timing diagram 
that is expected from this circuit is 
shown below the schematic. Compare 
this timing diagram to the timing dia- 
gram in Figure 2, which was produced 





_B) Timing Diagram | — 





Figure 4: Divide-by-three counter 
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by LogicLab’s simulation of the circuit. 
The primary difference between the 
two timing diagrams is the length of 
the propagation delays between inputs 
and outputs. 


Objects Pay Big Dividends 

This project demonstrated to me, be- 
yond any doubt, the value of using an 
object-oriented programming system to 
construct a simulation. The ability to 
construct objects by using their physi- 
cal counterparts as models meant that 
I was able to work within a familiar 
framework — I already knew the rela- 
tionships between logic devices, sig- 
nals, logic probes, and analyzers. Small- 
talk let me express those relationships 
essentially intact. Other languages 
would have required me to translate 
those relationships into a more rigid 
and less expressive form. Smalltalk’s 
integrated, fully interactive development 
environment also assisted me at every 
step and let me produce the prototype 
with relative ease. 

The only drawback to Smalltalk is its 
performance. Not only is Smalltalk an 
interpreted language, but the overhead 
associated with message sends inflicts 
a significant penalty upon run-time per- 
formance. The end result is that Logic- 
Lab requires approximately one sec- 
ond of real time for every ten nano- 
seconds of simulated time. Blazing 
speed is not this simulator’s claim to 
fame! But the slow run-time perfor- 
mance is easily overlooked, once you’ve 
experienced firsthand the ease with 
which Smalltalk lets you transform ideas 
into functional extensions of the envi- 
ronment itself. 


Availability 

All source code is available on a single 
disk and online. To order the disk, 
send $14.95 (Calif. residents add sales 
tax) to Dr. Dobb’s Journal, 501 Galves- 
ton Dr., Redwood City, CA 94063, or 
call 800-356-2002 (from inside Calif.) 
or 800-533-4372 (from outside Calif.). 
Please specify the issue number and 
format (MS-DOS, Macintosh, Kaypro). 
Source code is also available online 
through the DD/J Forum on Compu- 
Serve (type GO DDJ). The DD] Listing 
Service (603-882-1599) supports 300/ 
1200/2400 baud, 8-data bits, no parity, 
1-stop bit. Press SPACEBAR when the 
system answers, type: listings (ower- 
case) at the log-in prompt. 


DDJ 
(Listings begin on page 130.) 


Vote for your favorite feature/article. 
Circle Reader Service No. 6. 
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_ The Intel Math CoProcessor Don't put off your their functions—up to five times* faster. 

i desires any longer. For more information, contact your 
Carpe diem! Live for local dealer. Or call (800)538-3373 for “Intel 
the moment! Life is Math CoProcessor Technotes,’ a collection 
too short to wait on of benchmarks and software lists. For instant 
slow software. gratification (and instant product literature), 
= Just press an call our FaxBack™ number at (503)629-7576 
Intel® Math CoProcessor into the mother- and ask for Document #9970. We'll fax it 
board of any IBM® or compatible PC. It will directly to you. 





work effortlessly with the Intel micro- So do it now. What are you waiting for? 
processor already inside, and will inspire cj ® 

over 300 database, spreadsheet, CAD or intel 

business graphics programs to race through 





©1989 Intel Corporation. Intel is a registered trademark of Intel Corporation. FaxBack is a trademark of Intel Corporation. IBM is a registered trademark of International Business Machines 
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Emperor's New Clothes 


Are the 





Object Oriented ? 


Some down-to-earth questions about programmings latest 


large number of sweeping 

claims, particularly with respect 

to programmer productivity 

and code reuse, are being made 

for object-oriented program- 
ming (OOP), many of them by firms 
that are in the business of making and 
selling object-oriented programming 
tools. Before we bet a real program- 
ming project on this freshly sewn tech- 
nology, we’d like to ask some ques- 
tions about object-oriented program- 
ming just to make sure the emperor’s 
new clothes are really as fine as these 
tailors claim. 


Where’s the Evidence? 

Inscientific and engineering disciplines — 
besides computer science and program- 
ming — we accumulate experience, 
gather evidence, and conduct experi- 
ments, which we then generalize to 
make claims. If one doubts the claims 


Scott is a scientific advisor at Schlum- 
berger’s Austin System Center in Aus- 
tin, Texas, where he was the chief soft- 
ware architect of Schlumberger’s new 
family of wellsite data acquisition sys- 
tems. He has a Ph.D. in probability 
and statistics from Michigan State Uni- 
versity and he has been programming 
since 1957. He can be reached through 
Internet: @guthery asc.slb.com. 
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one is invited to reanalyze the data and 
replicate the experiments. For some 
strange reason, programmers have a 
history of accepting claims blindly with- 
out asking for proof. Hope springs eter- 
nal, I guess, and dire need grasps any 
straw. To my knowledge there has been 
absolutely no evidence gathered or 
experiments performed to validate the 
claims made for object-oriented pro- 
gramming, particularly for object-ori- 
ented programming in the large. 

The biggest OOP projects undertaken 
to date seem to be the OOP develop- 
ment systems, and the news from this 
front is not all good [Harrison, 1989]. 
But OOP isn’t supposed to be an end 
in itself. Esperanto was wonderful for 
writing books about Esperanto but not 
much else. If you want to write an OOP 
system, then OOP is probably just the 
thing. But if you want to write, say, an 
accounting system or a reservation sys- 
tem using OOP you’re going where 
no man or woman has gone before. In 
fact, you'll be performing on yourself 
the very experiments that the OOP ped- 
dlers should have performed to sub- 
stantiate their claims. Would you ac- 
cept this situation if OOP were, for 
example, a new surgical procedure? 


What is an Object? 


The atomic element of object-oriented 





programming is, not surprisingly, the 
object. But what is an object? The 51 
papers in the IEEE “Tutorial on Object- 
Oriented Computing” by Gerald Peter- 
son [Peterson, 1987] contain many defi- 
nitions and descriptions of an object. 
These definitions come in two basic 
flavors. One flavor talks about model- 
ing reality and the other talks about 
encapsulated collections of program- 
ming tricks. 

Stripped of its fancy jargon, an ob- 
ject is a lexically-scoped subroutine with 
multiple entry points and persistent state. 
Object-oriented programming has been 
around since subroutines were invented 
in the 1940s. Objects were fully sup- 
ported in the early programming lan- 
guages AED-0, Algol, and Fortran II. 
OOP was, however, regarded as bad 
programming style by Fortran aficiona- 
dos. As Admiral Grace Hopper has so 
often observed, we don’t actually do 
anything new in computing we just 
rename the old stuff. Admiral Hopper 
(at the time Lt. Hopper) was doing 
object-oriented programming on the Har- 
vard Mark I in 1944 and probably didn’t 
even know it. 

Unfortunately, we have completely 
ignored Rentsch’s 1982 plea [Rentsch, 
1982]: “Let us hope that we have learned 
our lesson from structured program- 
ming and find out what the term means 
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Software Distribution Kit by 
Clarion Software. 

Add installation procedures to Clarion appli- 
cations developed for distribution. Com- 
press module creates installation disks, 
compresses programs and creates installa- 


tion program. Install module decompresses 
installation files to user's hard disk, displays 
developer's name, customizes installation 
and more. Same basic installation software 
used with Clarion itself. MS-DOS. 


List price $299 PS price: $219 
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breakout switch Varies Call 
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before we start using it.” C++ was first 
described in April, 1980 [Stroustrup, 
1980]. Over nine years later an incompat- 
ible Version 2.0 has just been released. 
The definition of C++ still isn’t com- 
plete. Can anything that’s this hard to 
define be good for writing understand- 
able and maintainable programs? And 
if you think it’s hard to pin down the 
definition of an object, just try drawing 
a bead on the definition of the inheri- 
tance links that connect objects. 


What's the Cost of OOP Code Reuse? 
One of the primary claims of object- 
oriented programming is that it facili- 
tates the reuse of code. Does it? And if 
sO, at what cost? 

The unit of reuse in object-oriented 
programming is the hierarchy. It is the 
hierarchy and not the object that is 
the indivisible whole. Unlike a subrou- 
tine library where you can just take 
what you need and no more, in object- 
oriented programming you get the 
whole gorilla even if you just wanted 
the banana. 

The problem is that hierarchies are 
nonmodular. You can’t just clip the 
objects you want to reuse out of the 
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hierarchy because you don’t know (in 
fact, aren’t supposed to know) how the 
objects are entangled in the hierarchy. 
So, the cost of OOP-style code reuse 
seems to be that you must (re)use a lot 


Stripped of its fancy 
jargon, an object is a 
lexically-scoped 
subroutine with 
multiple entry points 
and persistent state 





more code than you want or need. 
Your system will be bigger, run slower, 
and cost more to maintain than with 
subroutine-style reuse. Though there 
may be situations in which the conven- 
ience of the programmer so completely 
outweighs the interests of the users 
and the interests of the maintainers, 
I’ve never seen one. 


How to Combine Object Hierarchies? 

If object hierarchies need to be small to 
control the cost of their reuse then you 
must be able to get many of them to 
work together when you build your 
program. You may, for instance, want 
to use a polynomial approximation hi- 
erarchy, a linked list hierarchy, a com- 
munication hierarchy, an indexed rec- 
ord hierarchy, a pop-up menu hierar- 
chy, and a ray-tracing hierarchy all at 
once. 

But how do you combine object hi- 
erarchies? Can objects in a C++ mathe- 
matics hierarchy send arguments to ob- 
jects in an Objective-C ray-tracing hier- 
archy? Sadly, no. What’s worse is that 
you can’t even send arguments from 
one C++ hierarchy to another. There 
are neither in theory nor in practice 
any OOP hierarchy combiners. 

It is left as an exercise for the OOP 
programmer to “impedance match” 
not only between OOP technologies 
but between OOP hierarchies within 
a technology. This means doing ex- 
actly what you were told you wouldn’t 
have to do; open up the objects and 
program with respect to representa- 
tion of the state inside. The object- 
oriented programmer must map from 
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one internal representation to another. 
There is, after all, no reason to suspect 
that one hierarchy’s internal represen- 
tation of a compound object such as 
a matrix or a picture is anything like 
another’s. This clearly defeats one of 
the main advertised benefits of object- 
oriented programming: Namely, hid- 
den internal representation. What you 
may have saved by not having to write 
code for objects in the same hierar- 
chy, you now must spend as you write 
code to map between objects in dif- 
ferent hierarchies. 

One of the few things that we have 
learned (again and again) over the 
last 40 years of programming is that 
the hard part isn’t getting code frag- 
ments to work. The hard part is get- 
ting them to work together. The name 
of the game, particularly when it comes 
to code reuse, is integration at scale. 
Object-oriented programming makes 
building code fragments easier, but it 
makes integration much more diffi- 
cult. Making the easy parts easier but 
the hard parts harder is not progress 
by my lights. 


How to Tune an Object-Oriented 
Program? 

Has any program you've ever written 
been too fast or even fast enough? What 
do you do if your object-oriented pro- 
gram isn’t fast enough? How do you 
performance tune an object-oriented 
program? Indeed, how do you even 
answer the question, “Where is the pro- 
gram spending its time?” 

It’s just possible you'll find yourself 
spending lots of time in one or two of 
your own methods and can work on 
making those methods faster using clas- 
sic techniques. But it’s much more likely 
that you'll find you’re spending more 
time than you care to running around 
the hierarchy. 

There is only one thing you can do: 
Rearchitect and reorganize the hierar- 
chy itself to make it more efficient and 
to take into account the way you want 
to use it. The semantics of the hierar- 
chy thus become a twisted combina- 
tion of the descriptive reality that the 
objects came from and the profile of 
the use your procedural code makes of 
them. This is not an attractive prospect. 

The problem here, of course, is that 
while the semantics of classic program- 
ming languages match the semantics 
of the underlying hardware, the se- 
mantics of object-oriented languages 
do not. When using classic languages 
like C or Fortran, if you couldn’t bind 
the problem to the hardware tightly 
enough to get the performance you 
needed, you could make this binding 
tighter yet by resorting to assembly lan- 
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guage or even microcode. You can’t do 
this with an object-oriented program 
because you can't get at the virtual 
machine that implements the semantics 
of these languages. They’re all hidden 
away from you in the vendor’s com- 
piler and runtime library. 

Once again, the programmer is be- 
ing invited to pass the cost of expedi- 
ence onto the user of the system. The 
additional cost of supporting a runtime 
OOP virtual machine can vary from as 
little as 50 percent [Thomas, 1989] to 
as much as 500 percent of the cost of 
a non-OOP version of the system. This 
wholesale sacrificing of runtime effi- 
ciency to programmer’s convenience, 
this emphasis on the ease with which 
code is generated to the exclusion of 
the quality, usability, and maintainabil- 
ity of that code, is not found in any 
production programming environment 
with which I am familiar. 

Finally, before we leave the topic of 
hardware, let’s not forget the Intel 432. 
The 432 was OOP in silicon and it 
failed because it was just too slow. If 
we couldn’t make OOP efficient when 
we implemented it in hardware why 
do we think we can make it efficient 
when we emulate it in software? 
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How to Manage the OOP Development 
Team? 

Real programs are built by large pro- 
gramming teams, not by individuals or 


Given something as 
flexible as an object to 
work with, it is almost 
certain that each 
programmer working 
on the tree will want to 
implement a different 
Vision 


small, closely knit cliques. Because we 
certainly don’t want to imagine that 
every programmer on a project builds 
his or her own private object hierarchy, 
we are faced with the prospect of many 
programmers working on the same tree. 


Given something as flexible as an ob- 
ject to work with, it is almost certain 
that each programmer working on the 
tree will want to implement a different 
vision of the reality that the tree is 
attempting to capture. 

One possibility is to appoint an ob- 
ject “czar,” the direct analogy of a data- 
base administrator. Databases need to 
be stable, so appointing an administra- 
tor to watch over the database schema 
and carefully coordinate changes to it 
makes good software engineering sense. 
Object hierarchies, on the other hand, 
are deliberately not stable; the hierar- 
chy is the program after all and it’s the 
program that we’re developing. Imag- 
ine having to ask the permission of the 
subroutine czar every time you wanted 
to write a subroutine. 

What really happens? What I’ve seen 
in three large (7000+ objects) OOP pro- 
jects is that because everyone is trying 
to get his or her job done with a mini- 
mal number of dependencies on ev- 
eryone else, subtrees and subrealities 
spring up all over the place and new 
objects and new methods sprout like 
weeds. There was an object in one of 
these systems which when printed went 
on for 80 pages. One also finds lots of 


Source Code 
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Command substitution: use the 
output of one command as com- 
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(continued from page 84) 
little private languages for communi- 
cating between these subrealities. 

Of course, good communication be- 
tween the team members can attenuate 
the growth of some of this gratuitous 
complexity. But, in projects on tight 
schedules with programmers removed 
from one another in time, space, and 
organization, predicating success on 
good communication adds more risk 
to an already risky undertaking. 


Another distressing property of these » 
multi-programmer hierarchies is that © 


they’re difficult to debug. If there is one 
overarching flaw in OOP, it’s debug- 
ging. As was noted recently in the OOP 
newsgroup on USENET, “It has been 
discovered that C++ provides a remark- 
able facility for concealing the trivial 
details of a program — such as where 
the bugs are.” 

While we’re passing through this anal- 
ogy with database management sys- 
tems, recall that one of the raison d’ete 
for DBMSs was the separation of data 
and program. Now, along comes OOP 
and we’re told that mixing data and 
program is the right thing to do after 
all. Were we wrong then or are we 
wrong now? 


Do Object-Oriented Programs Coexist? 

We have gotten used to mixing lan- 
guages in our programs. This is indus- 
trial-strength code reuse in action; if 
you can’t access it at will, you can’t 
reuse it. You don’t have to rewrite a 
Fortran subroutine into C to use it in a 
C program, you just call it. Common 
or at least coercible calling conventions 
and a uniform linking model have made 
this possible. One of the many reasons 
that Lisp has failed as a programming 
language is that Lisp is a language loner. 

How about object-oriented lan- 
guages? Can you mix Objective-C, Eif- 
fel, CLOS, Actor, Owl, and C++ objects 
in a tree? Not on your tintype. Object 
hierarchies are isolated bunker realities 
just like the language technologies that 
implement them. 

We have learned that there is no 
all-singing, all-dancing anything in com- 
puting. No one language, no one com- 
munication protocol, no one operating 
system, no one graphics package—no 
one anything is always right all the 
time everywhere. We have learned again 
and again that closed systems are los- 
ers. Successful systems have one thing 
in common — they can coexist peace- 
fully and gracefully with other systems. 
Object-oriented programming does not 
currently have this property, either in 
concept or in practice. If by “reuse” 
OOP advocates really mean “reuse 
when the whole world is just like me” 
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then this is not reuse in any practical 
or useful sense. 


What are the Consequences of 

Persistent State? 

Persistent state means that data obtained 
from an object cannot be used inde- 
pendently of that object. It means that 
the very act of obtaining a value invali- 
dates all other previously obtained val- 
ues. Programmatically, this means that 
every time you want to use a value you 
have to retrieve it from the hierarchy. 
It is a programming error to make a 
local copy of a value. Hierarchy chas- 
ing and the inheritance machinery are 
not only in the inner loop of every 
orthodox object-oriented program, they 
are part and parcel of every use of 
every value in the program. 

But, persistent state isn’t only a per- 
formance issue. It is much more impor- 
tantly a data consistency issue. The only 
correct way to get two or more consis- 
tent values from an object hierarchy is 
to get them together in one package 
in One response to one query. This is 
the only way you can be assured that 
they are consistent each with the other. 
Not only have I not seen any discus- 
sion of this property of OOP, I have 
seen example object-oriented programs 
that don’t understand the consequences 
of persistent state and simply assume 
consistency between values obtained 
serially. Without explicit assurances from 
the designers of the hierarchy in use, 
this is an error. 

There was a very good reason why 
persistent state was regarded as bad 
Fortran programming style — it’s a se- 
mantic mine field. Why do we have to 
completely rediscover the principles of 
good programming with each new pro- 
gramming language and paradigm we 
invent? In all but very restricted and 
tightly controlled situations experience 
has shown that persistent state should 
be avoided. For those who haven't taken 
a stroll in this mine field, object-ori- 
ented programming offers the oppor- 
tunity to avoid reusing other’s experi- 
ence and learn for themselves. As with 
modularity and the separation of pro- 
grams and data, OOP seems content 
to simply ignore what we have learned 
in 40 years of programming. 


Can You Get the Development System 
Out of the Production System? 

A common failing of many program- 
ming aids such as OOP is that you can’t 
get rid of them when you’re done with 
them. They’re like training wheels on 
a bicycle except you can’t take them 
off when you’ve learned to ride. Pro- 
gramming languages such as Lisp and 
methodologies such as OOP are par- 





ticularly painful because they are based 
on a virtual machine that sits between 
you and the real machine. The virtual 
machine is a nice warm-fuzzy to have 
during development but we simply 
can’t afford to have it in our production 
systems. 

Structured programming was such a 
success because you got all the bene- 
fits of enhanced software productivity 
without any runtime penalty. We don’t 
know yet what the minimal runtime 
cost of OOP is but our inability to meas- 
ure it and hence engineer it should 
certainly give us pause. I’m uncomfort- 
able working with a programming para- 
digm whose runtime cost I can’t even 
estimate, let alone eliminate. 


Conclusion 

Object-oriented programming runs coun- 
ter to much prevailing programming 
practice and experience: In allocating 
and controlling software costs, in modu- 
larity, in persistent state, in reuse, in 
interoperability, and in the separation 
of data and program. Running counter 
to prevailing wisdom does not, of 
course, automatically make an innova- 
tion suspect but neither does it auto- 
matically recommend it. To date, in 
my opinion, advocates of object-ori- 
ented programming have not provid- 
ed us with either the qualitative argu- 
ments or the quantitative evidence we 
need to discard the lessons painfully 
learned during the first 40 years of 
programming. 
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PDQ: Less Baggage, 
Faster Code 


Doing away with bloated code 


o a user, the biggest difference 

between a compiled program 

written in a high-level language 

and a compiled program writ- 

ten in assembly language is the 
size of the executable (EXE) file. The 
majority of compilers, regardless of lan- 
guage, produce large EXE files even 
when the size of the original program 
is trivial. Most serious programmers 
would like to have an alternative to this 
problem of bloated code. 

QuickBasic programmers, take note: 
Crescent Software has found a way to 
put those fat EXE files on a severe diet, 
shrinking some of them to less than 
1K bytes. As a bonus, Crescent’s PDQ 
library allows Basic TSR programs, and 
permits Basic programs to return an 
error level to MS-DOS. 

The large size of most EXE files par- 
tially result from the way in which a 
language’s libraries are arranged. Ac- 
cording to Crescent Software, the Mi- 
crosoft QuickBasic libraries are typical: 
If a program contains a single CLScom- 
mand (which clears the screen), the 
linker also includes routines for COLOR, 
CSRLIN, POS(O), LOCATE, and SCREEN 
(x,y). Most of these routines also in- 
clude code that can manage screens in 
graphics mode, whether or not that 
code is needed. The addition of other 
simple commands and functions adds 
even more overhead. This library “clump- 
ing” factor is called “granularity.” 

I used LIB.EXE to investigate Cres- 


Bruce develops and sells software for 
TRS-80 and MS-DOS/PC-DOS comput- 
ers. You may reach him at T.N.T. Soft- 
ware Inc., 34069 Hainesville Rd., Round 
Lake, IL 60073. 
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cent’s claims. A simple BEEP command 
in QuickBasic 4 costs 923 bytes of over- 
head, anda single ASC’ ) function adds 
554 bytes to the size of an EXE file! 
That’s granularity with a vengeance. 

Another part of a standard EXE file 
is taken up by routines that start a 
program and determine the type of 
video adapter attached, the keyboard, 
the current screen and graphics mode, 
and so on. Still more overhead is added 
in order to handle the process of pro- 
gram termination. This overhead is eas- 
ily seen when a null program is com- 
piled: In QuickBasic 4.5, a program that 
contains only an END statement com- 
piles to an EXE of 9842 bytes in size! 

Crescent claims that the QuickBasic 
compiler actually produces very effi- 
cient code. If this is true, it should be 
possible to produce very small execut- 
ables by making the library more effi- 
cient and by reducing the size of de- 
fault start-up and termination code. This 
method seems to be exactly what Cres- 
cent has done. 

Crescent’s PDQ is a substitute library 
for those who use the Microsoft Quick- 
Basic compiler, Version 4.0, or higher. 
The PDQ library is intended to replace 
the BCOM4x.LIB file with a subset li- 
brary that has smaller granularity and 
less sophistication. 

“Less sophistication” means that no 
floating-point routines are available. 
There are no routines to draw circles. 
Error handling is greatly simplified; only 
eight error codes are supported. Disk 
files must be either sequential or bi- 
nary. All arrays must be static, how- 
ever, an allocMEM function is provided 
to simulate dynamic arrays. PDQ pro- 
vides no random-number generator, no 


ON anything, no DATA statement or 
READ/RESTORE commands, TAB, 
PRINT USING, or WRITE. 

Is this too much to give up? I don't 
think so, and Ill bet you won't, either. 
I wouldn’t use the PDQ library to write 
a billing system, but that’s not PDQ’s 
intended use. Before the introduction 
of PDQ, I thought that only C or assem- 
bly would be appropriate for the inevi- 
table menus, filters, translators, and mis- 
cellany that are part of most systems. 
Now, I intend to use PDQ to develop 
most of them. 

In fact, Crescent has done what many 
programmers have been requesting. For 


_ years, compiler vendors have been in- 


creasing the size of the default code 
that is automatically linked to each pro- 
gram. To handle the proliferation of 
hardware options, vendors supply many 
library routines in the most general form 
possible — and that only makes mat- 
ters worse. 

It’s hard to argue with the apparently 
sensible decision to supply general rou- 
tines. If I write a program, I want to be 
sure that it will run whether the user 
has VGA, MDA, or anything in-between. 
On the other hand, many programs are 
strictly character-mode and need noth- 
ing more than the most elementary TTY 
functions. Some file utilities may re- 
quire only the simplest I/O. In those 
cases, why should the developer have 
to accept an extra 25K (or more) of 
unnecessary run-time code? 

The availability of different (individ- 
ual selectable) versions of library rou- 
tines would provide a real advantage 
for developers. (I’ve long argued that 
developers would be willing to pay for 
such libraries.) Even better, I’d like the 


Dr. Dobb’s Journal, December 1989 


MS-DOS File Compatibility Package (create, read, & write MS-DOS file systems on non-MS-DOS computers) .........-. $500 

NEW! CSource Application Program Generator by MBAC (includes all source code; generator & libraries)... .--- +. ee ee ee $500 

dB2c (dBase-to-C translator; includes db_Files for C and db_-ToolsforC) . 2. 2 2 6 1 eee i: Saad 

pBase (relational DBMS with se ae Sse and sparse table & repeated field support) . . 2. 6 6 1 ee ee ee es . $325 

CQL Query System (SQL retrievals on B-trees plus windows) «2. 6 6 ee ee $325 

GraphiC 5.0 (high-resolution, DISSPLA-style scientific plots in color & hardcopy) . . . . - eee ee $325 

NEW! Drasch Clisp with Crules (Lisp library and programming environment with rule processing capability; natural language example) . . . . . $300 
Greenleaf Data Windows (windows, menus, data entry, interactive form design; specifycompiler) . . . ©. 6 ee ee ee eee es $300 . 

PC Curses (Aspen, Software, System V compatible, extensive documentation) ©... 1 6 6 ee ee ee ee ee . $290 

Code Base (database manager, dBase and Clipper compatible indexes & data files; Version 4.0)... ..... ok a Bg wy Se Ms . $260 

MEWEL (extensible window and event library by Magma Software; message-passing & object-oriented; SAA-compatible; dialog editor) . $250 

TurboTRx (Release 2.0; HP, PS, dot drivers; CM fonts; LalRX;MetaFont) .. 2... 2. 2 ee ee ee ee ee a oe ee $250 

NEW! PC PostScript (complete PostScript interpreter (ROM Version 47.0A), 80286/386 only, many device drivers, optimized graphics, fast) . $250 

db_File & db_Retrieve (B-tree and network database with SQL query and report varitet) tierce we cae ae eo OSS ee ee $245 

Greenleaf Communications Library (interrupt mode, modem control, XON-XOFF; specifycompiler) ... 1... ee ee ee ees $225 

NEW! CDirect (multi-user hashed file manager; variable length fields, binary or ASCII data, alternate keys). . . . ....-- ee ee $210 

NEW! BCPL Compiler (this is n ot C source but BCPL source; BCPL is the mother of Le See Ue ee ee oe ee $195 

QuickGeometry Library (large collection of mathematics, graphics, display & DXF subroutines for CAD/CAM/CAE/CNC) ....... $170 

CBTree (B++tree ISAM driver, multiple variable-length keys) 2. 6 6 6 ee ee $165 

TurboGeometry (library of routines for computational geometry, Version 3.0)... 6 1. 1 ee ee $160 

AT BIOS Kit (roll your own BIOS with this complete set of basic input/output functions for oe ee ee ee eee ee ee ee $160 

WKS Library Version 2.01 (C program interface to Lotus 1-2-3, dBase, Supercalc 4, Quatro, & Clipper) .. 2... 1... ee ee ee $155 

OS/88 (industrial-strength U+sx-like operating system, many tools, cross-development from MS-DOS) . . ... . . 6 1 eee ee es $150 

NEW! Cephes Mathematical Library (over 100 high-quality, double-precision scientificfunctions) . 2... 6 ee ee $150 

ME Version 2.1 (programmer’s editor with C-like macro language by Magma Software; Version 1.31 still $75)... 1... .....4.-. $140 

Vmem/C I Nada memory manager; least-recently used pager; dynamic expansion of swapfile) ©... 2. 6 6 ee ee ee es $140 

Turbo G Graphics Library (all popular adapters, hidden line removal) . . 2 6 6 1 6 ee ee $135 

NEW! vLIB (270 C functions for vio menus, forms, pop ups, mouse support, and input editing) ee ee ee ee eae = ed 

NEW! Power Search by Blaise Computing (regular-expression compiler; generates machine code on the fly). . 2... 6 ee ee ee ee $120 

Install 2.3 (automatic installation program; user-selected partial installation, CRC checking) ...... 2... ee ee eee. $120 

TE Editor Developer’s Kit (full screen editor, undo command, multiple windows) . . 2... 6 6 6 ee ee $105 

Updated! Minix Operating System (Version 1.3; U++x-like operating system, includes manual) . 2 2 2 6. 1 0 $105 

HyperText Viewer (simple hypertext system; multi-file documents; includes Tiny Curses) . 2. 2 2 1 1 ee ee ee $100 

PC/IP (CMU/MIT TCP/IP for PCs; Ethernet, Appletalk & NETBIOS drivers, RVD, update by Dan Lanciani). . ......... $100 

B-Tree Library & ISAM Driver (file system utilities by Softfocus) . 2. 6 6 6 6 ee ee « « «$100 

‘The Profiler (procram execution profile tool) « . « #4 4 + ww ke 4 A a ee Se ye wa ER ER wee mR He $100 

QC88 C compiler (ASM output, small model, no longs, floats or bit fields, 80+ functionlibrary) . . . . 2... ee ee ee $90 

Otter 1.0 (beautiful theorem-prover by Bill McCune; includes manual & two books by Wos; complete starterkit). . ........ ¢ # 4 Oe 

C Windows Toolkit (pop-up, pull-down, spreadsheet, CGA/EGA/Hercules) .. 1... 1... eee eee, ee ee ee $80 

JATE Async Terminal Emulator (includes file transfer and menu subsystem) . . . 2. 1... ee ee os $80 

MultiDOS Plus (DOS-based multitasking, intertask messaging, semaphores) . . 2. 6 6 we ee ee $80 

Make (macros, all languages, built-inrules) . 2... 1 1 6 ww ee eee ee ee ee ee es ee $75 

evalU (C function to evaluate ASCII infix expression string; 17 built-infunctions) .............. i 4 he oe % SE is mio 

XT BIOS Kit (roll your own BIOS with this complete set of basic input/output functions for XTs) . ..... . he ah & HB ok 4 = $75, 

Professional C Windows (lean & mean window and keyboard handler). . © 2 1 1. ee ee ee ee $70 

ScreenLib (simple screen definitions, windows, pop-up menus, context-sensitive help) . 2... 6 6 ee ee ee es $65 

Heap Expander (virtual memory manager using expanded memory, extended memory, and diskspace)... . . a ee ee $65 

Quincy (iteraciive C interpreter). «<a 6 a % a ete en & © ee woe Ue Se ee we Re ee we RH 8 ae eee ee $60 

Symtab (general-purpose symbol table construction and management package)... ............ fw kee F ea $60 

P'Tree (general-purpose parse tree construction and management package)... ... 2... ee ee ees Sw oS Se am F $60 

Coder’s Prolog (Version 3.0; inference engine for use with C jhe age 6 Se ee Be ee Ee a SER Se we He EG .. . $60 

Async-Termio (Unix V compatible serial interface for MS-DOS; stty, ioctl, SIGINT,etc.) . 2... 2... ee, ae ee ee ee $55 

Backup & Restore Utility by Blake McBride (multiple volumes, file compression & encryption) ........- Ls & Go Wie 5 se > Bol 

NEW! Floppy TAR (TAR backup and restore on MS-DOS devices; direct access to non-standard devices) . . 2... ee ee ee ee ee $50 

SuperGrep (exceptionally fast, revolutionary text searching algorithm; also searches sub-directories) . . . 2... 2... ee eee ee $50 

NEW! REGX Plus (search and replace string manipulation routines based on regular expressions). . 2. 2 1. 6 1 ee ee ee ee ee. &. Oe 

OBJASM (convert .obj files to .asm files; outputis MASM compatible) . 2. 2 1 1 ww ee $50 

Polyglot TSR Package (includes reminder, bookmark, virus catcher, cache manager, & speech generator) ..... . io be wae $50 

Multi-User BBS (chat, mail, menus, sysop displays; does not include Hayes modem driver) . . 2... 6 ee ee ee $50 

Updated! CLIPS (rule-based expert system generator, Version 4.3; advanced manuals available) ............ oe ee a ee ee $50 

NEW! Kier DateLib (all kinds of date manipulation; translation, validation, formatting, & arithmetic) ........ a ee ee ee $45 

NEW! DES Encryption & Decryption (2500 bits/second on 4.77 MHz PC for on-the-fly encryption at 2400 baud). . 2. 2. 2 2 2 ee. .. . $40 

NEW! FlexList (doubly-linked lists of arbitrary data with multiple accessmethods). © 4. «© 6% 6 6 woe @ lege 4 od is Ee we HE ee $40 

Virtual Memory Manager by Blake McBride (LRU pager, dynamic swap file, image save/restore) ....... Ge oe ee oF $40 

Heap 1/O (treat all or part of a disk file-as licap siorage) <. . cc kw oe ee eee ee ee ER ee RHE $40 

Bison & PREP (YACE workalike parser generator & attribute grammar preprocessor; now includes documentation) . ....... $35 

PC-XINU Fg Se XING Operatine system for PO) 2. +n ge te ee ke Ee eR ee Oe eS eB ee eS $35 

NEW! RXC & EGREP (Regular Expression Compiler and Pattern Matching; RXC makes finite state machine from regular expression) $35 

NE CCALC (handy extended-precision calculator; real and complex models; many built-infunctions) ....... te eS ee & OF . . + $30 

NEW! GNU Awk & Diff for PC oth programs in One package)... «...% «is 2.6 ww He eR EE De Se DE ew we He 8 $30 

Translate Rules to C (YACC-like function generator for rule-based systems) ...........-224. Stee vie Gg. Uh “Y $30 

6-Pack of Editors (six public domain editors for use, study & hacking)... . 2... ee ee ee ees Se ee ee $30 

Crunch Pack (14 file compression & expansion programs) . . . 1. 1 eee ee ee ee eae a la we $30 

Pascal P-Code Compiler & Interpreter or Pascal-to-C Translator (Wirth standard Pascal)... ... 2... . ie 8 eee 4 $25 

FLEX aap lexical analyzer generator; new, improved LEX; official BSD Version 2.1 withdocs) ........ ph eevee Be eo $25 

Arrays for C (macro package to ease handling ofarrays). . 2 6 1 6 ee ee ee PRE e eee oe Be G $25 

List-Pae(C functions for lists, stacks, and QUCUES)” 2.4 4.4 8 Pde OOS HSER RGD BER ERE we we eee OG $25 

AGS (GS000 Cross-aSSCMDICEL) ks 6-8 6 RE REO OHO ET ED eH DS i-2 a Rn ee Do st $20 

Dat acro Processor (general pilrpose text: translator) «9.94% 4% 48 4 6 + ee hae we oh eS ew RE Re eH YH $20 

ata 

Protein Sequences (over 10,000 sequences; includes demo disk of Pearson FAST/A programs; subscriptions available) ....... $60 

Smithsonian Astronomical Observatory Subset (right ascension, declination, & magnitude of 258,997 stars)... . 1... 1 1. $60 

Moby Words (500,000 words & phrases, 9,000 stars, 15,000 names) . 2 6 ee ee $65 

U.S. Cities (names & longitude/latitude of 32,000 U.S. cities and 6,000 state boundary points). ........ ee a ee a ee $35 

The World Digitized (100,000 longitude/latitude of world country boundaries) ............... ‘oes = ee eS $30 

KST Fonts (13,200 characters in 139 mixed fonts: specify TEX or bitmapformat) .............. a ee oe $30 

USNO Interactive Computer Ephemeris (high-precision moon, sun, planet & star positions) ......... _e ewe ee eG . oo. OU 

U.S..Map (15,701 points of state botindanies), <3. 44 6 4-0 ee ee H's ee RR | EES Be] Sw 8 See Bo wie ee .% « ooo 

The Austin Code Works Voice: (512) 258-0785 

11100 Leafwood Lane acwlinfo@uunet.uu.net BBS: (512) 258-8831 

Austin, Texas 78750-3409 USA FAX: (512) 258-1342 

Free surface shipping for cash in advance For delivery in Texas add 7% MasterCard/VISA 


C CODE FOR THE PC 


source code, of course 


CIRCLE NO. 89 ON READER SERVICE CARD 








(continued from page 88) 

option to use some sort of meta-com- 
mand to specify which libraries will 
be used for which parts of a program. 
Given the current levels of complica- 
tion and sophistication in compilers 
and libraries, this may be a lot to ask. 

At the very least, the libraries should 
have finer granularity. It’s probably true 
that the process of linking libraries that 
have a very fine granularity takes more 
time, and that these libraries may even 
require the use of multiple link passes. 
I’m willing to make that sacrifice, and 
I think that most developers would be 
willing to do so too — at least for final 
distribution versions of software. 

Another potential problem exists with 
respect to reduced granularity. Most 
modules are aligned on paragraph 
boundaries, meaning that each module 
wastes an average of half a paragraph — 
8 bytes. The more modules, the more 
wasted memory. For speed reasons, 
modules should at least be aligned on 
word boundaries, this technique causes 
an average waste of one byte per mod- 
ule. This waste factor doesn’t sound 
like much of a problem, but it can 
become one if a program contains sev- 
eral thousand very small modules. The 
use Of a more intelligent linker or an 
integrated compiler/linker might cut at 
least some of this waste. 

I’ve told several compiler vendors 
that I would be willing to accept com- 
pile times of an hour or longer on a 386 
machine — provided that the compiler 
produced the tightest, most highly op- 
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Table 1; File sizes after PDQ compilation 
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timized code possible, and that it linked 
only the routines that were absolutely 
necessary. I would be willing to pay a 
good deal of money for such a Basic 
compiler and linker. (For whatever lan- 
guage, I’m not the only developer with 
those opinions.) I would also be will- 
ing to debug with something faster but 
less efficient. 

From that viewpoint, Crescent’s PDQ 
may signal the start of something big. 
If PDQ becomes a success, it may spur 
the major compiler vendors to offer 
something equivalent to PDQ or bet- 
ter. Most developers are not reconciled 
to working with large executables that 
need a lot of memory. Speed and effi- 
ciency will always have appeal. 

To see how well Crescent has suc- 
ceeded with PDQ, let’s consider some 
examples of simple programs written 
in QuickBasic and modified for the 
PDQ library. Example 1 lists the (hoary) 
standard SIEVE program, and Example 
2 shows the equivalent program modi- 
fied for PDQ. 

I also compiled a modified version 
of the program (under PDQ and QB 
4.5) with all PRINT and TIMER state- 
ments removed. Table 1 shows the file 
sizes after this program is compiled. 

In each case, the EXE file created by 
PDQ is about a tenth of the size of the 
EXE file created by the standard Quick- 
Basic library. Few changes were neces- 
sary, and the program ran just as 
quickly — it ran in about 3.24 seconds 
on my computer. 

Notice the effects of library granular- 


ge 
1585 = 
22 Cr 


Times per Million Long Integer Operations 


_ Raw loop: 
Assignments: 
Additions: 
Subtractions: 

_ Multiplications: 

_ Divisions: 
Comparisons: 


80286 
2.75 
1.86 

16.20 
16.20 
27.40 
32.46 
12.08 


8088 
276 
1.86 
16.20 
16.20 
28.28 
32.46 
12.02 


Times per Million Operations 


Fixed string assignments: 
_ Fixed string MID$ operations: 
Fixed string “concatenations”: 


35.81 


8088 80286 
36.52 
36.24 


36.24 


36.03 
36.03 


Miscellaneous Times and Size 


Print 1,000 70-byte strings to screen: 
Executable size (bytes): 


Table 2: Benchmark results 


90 


7,346 


8088 
27.02 


80286 
27.02 
7,344 





ity. Removing the PRINT, TIMER, and 
double-precision subtraction routines 
sliced the size of the QB 4.5 EXE file 
by 15K bytes. A simple TTY print rou- 
tine, plus the bytes contained in the 
actual strings, might use a total of 150 
bytes. 7TIMER ought to not use more 
than a dozen or so bytes. Double- 
precision subtraction routines and the 
numeric-to-ASCII conversions would 
surely require less than 2K bytes. The 
rest of the 15K overhead in the QB 4.5 
EXE file comprises all of the unneces- 
sary linked code. 


A Small Utility Program 

Consider a small filter utility. Most pro- 
grammers would write such a utility in 
C or in assembly language in order to 
generate the smallest EXE possible. The 
filter utility simply inspects the text in 
the file named on the command line 
and converts all lowercase letters to 
uppercase. This utility looks like the 
program in Example 3. The filter utility 
is straightforward and the task is trivial, 
but this type of program is the core of 
most file-filter utilities. The file sizes 
produced with PDQ were: 


Std. No Print 
UCASE.BAS 592 459 
UCASE.OBJ 1723 1553 
UCASE.EXE 2578 2348 


Note: I added some remarks for publi- 
cation, so the source code size will not 
match the numbers shown above. 

UCASE.BAS ran with impressive 
speed, converting a 104K-text file to 
uppercase letters in about three sec- 
onds on my Tandy 4000 (16-MHz 80386, 
no math coprocessor, Plus Develop- 
ment Hard Card 40, with 64K cache 
enabled). Further, on this small pro- 
gram, PDQ was one-third the size of 
the equivalent program written in 
QuickC and Turbo C. 

PDQ also contains several alternate 
libraries. These libraries provide special 
versions of various modules, optimized 
for the 80286 and 80386 processors. The 
PDQ documentation mentions that the 
80386 library is especially suitable for 
use with long-integer calculations, most 
notably long-integer divisions. 

To test PDQ’s speed during various 
operations, I used a modification of the 
benchmark programs presented in my 
earlier QuickBasic review (DDJ, No- 
vember 1988). The results are shown 
in Table 2. 

Generally speaking, the PDQ routines 
are equivalent to the routines in the stan- 
dard QB 4.5 library. The PDQ 80386 
routines are appreciably faster at long- 
integer operations, as advertised. 

Regardless of the library used, the 
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What SQL engine is a standard 
of measure to the big boys? 


If you’ve noticed ORACLE’S recent ad campaign, you have the answer. 


Bugs Uncovered in Dbase IV’s SQL 


Ashton-Tate Admits Internal Errors That Cause Inaccurate Results 


By ScorT MACE 


Dbase IV’s SQL mode contains 
internal errors and sometimes 
produces inaccurate results, 
Ashton- Tate has admitted. 


Internal error: 


|| Select distinct clients. acctnum, name from clients,transact where clients a 


. set sql on 
SOL 


SOL. start databace tectdb4: 
SOL. select distinct clients. acctnum, name from clients,transact where clients.a 
cctnus-transact.acctnum and sysbol in (select syebol from transact where acctnur 


=1082> and clients. acctnuse=1144; 
A ES a! 


Ashton-Tate is developing 
work-arounds, which will be 
available to users this month, 
and plans to fix the problem 





DO | GROEN 





entirely in future versions, com- This internal error in Dbase IV SQL may occur when the physical 


pany representatives said. 
In one instance, a query 
produces 36 records under IBM- 


order of records in a data file is very similar to the order of its index. 





standard SQL tests, but Dbase 
IV returns an answer of 12 
records. In four other known 
instances, Dbase IV is unable to 
process the query, returning an 
“internal error’ message. An- 
other query produced no result, 
and Dbase IV gives inconsistent 
results in yet another test. 


The problems may result | 


from the complexities of opti- 





mizing and translating SQL que- 
nes and subqueres into Dbase 
commands, a process that takes 
place inside Dbase IV and is 
transparent to users, said van- 
ous SQL experts. 

According to tests produced 


by Quadbase Systems of Sunny- | 

_ vale, California, in one instance | 

| Dbase IV failed to retneve all 
the data that matched an SQL | 





search condition. If users do not 
write extensive test programs to 
verify results, they may mistake 
the errors for complete, accurate 
answers, said Fred Luk. Quad- 
base’s president. Quadbase sells 
Dquery, an SQL query interface 

for Dbase and 1-2-3 data files. 
All the quenes 1n Quadbase’s 
evaluations use IBM DB2 stan- 
See Dbase, Page 105 


Infoworld, January 2, 1989 


Quadbase-SQL'" 


You can now develop database applications using the 
programming language of choice, ‘“‘C’’, and the full power 
of SQL without compromise in a 640K PC. You can use 
Quadbase-SQL™ as an addition to your existing dBASE 
environment or build your applications from scratch. Your 
cost to start reaping the benefits of SQL is minimal. 


® Fully supports ANSI SQL-86 level 2 standard 

®@ ANSI standard preprocessor for embedded SQL 

© Supports outer-join 

@ Supports primary key and referential integrity 

@ Supports transaction processing and security features 
® Record locking for multi-user access supported 


® Tool box includes report-writer and screen 1/O 
supports 


@ Uses dBASE III file formats 


® Can directly access Lotus 1-2-3, Symphony files, 
Foxbase, Clipper and dBASE IV index files 


@ JQUERY 3.0™ included at no extra charge for you to 
develop and debug your SQL statements before incor- 
porating them into your ‘‘C’’ programs 





Order your trial version 
of Quadbase-SQL™ 
today for just $99.00*. 


*Trial version is identical to Quadbase-SQL except that the 
number of records is limited to 1,000. You will also receive 
a $99.00 credit when you purchase a full license. 


dQUERY™ 3.0 is your power tool for ad hoc queries 
and report writing without programming. It uses the 
same high-performance SQL engine as Quadbase-SQL. 


® Get your queries and reports done in minutes vs. days 


@ Superb value even only for learning SQL and QBE 
(Query-By-Example) 


**dQUERY is a well-designed interactive query management 
system for dBASE and Lotus 1-2-3 users. Offers both SQL 
and QBE..”’ 


Richard Shaw, Contributing editor of PC Magazine 


‘*dQUERY is the perfect solution for dBASE end users as 
well as developers. It combines dBASE compatibility with 
the power of SQL in a clean, fast and easy to use package.”’ 


Adam Green, dBASE Author and Lecturer 


Quadbase-SQL 
dQUERY 3.0 


$795.00 
$195.00 


Add $5 for U.S., $10 for Canada 
and $30 for international shipping 
and handling. VISA and M/C 
accepted. 


QuapBASE- SQL 


RELATIONAL DATABASE 
MANAGEMENT SYSTEM 


Quadbase Systems, Inc. 
790 Lucerne Drive 

Suite 5] 

Sunnyvale, CA 94086 
(408) 738-6989 





*dBASE Ill, dBASE IV, Lotus 1-2-3, Symphony, Foxbase, Clipper are trademarks of their respective owners. 
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(continued from page 90) 
long-integer assignment operations are 
much faster with PDQ. I know no rea- 
son for this difference and few pro- 
grams use enough assignment opera- 
tions to make this difference in speed 
noticeable to the programmer. 


DEFINT A-Z 
DIM flags (8190) 
CLS 
PRINT "25 iterations” 
x# = TIMER 
FOR 3 = 1 TO 25 
count = 0 
FOR i = 0 TO 8190 
flags(i) = | 
NEXT i 
FOR i = 0 TO 8190 
IF flags(i) THEN 
prime = 142 + 3 
k = i + prime 
WHILE k <= 8190 
flags(k) = 0 
k = k + prime © 
WEND 
count = count + 1 | 
END IF 
NEXT 1 
NEXT 3 
xx# = TIMER : | 
PRINT USING "#### primes in ##.### 
seconds" ;count;xx#-x# 
: 


Example 1: Standard Sieve 
program 


Multi-User 


Quick) BASIC 


on 


With Basmark s ferauas eta you get... 


® True multi-user QuickBASIC, 
MBASIC and BASICA for 
UNIX 


® Proven compiler technology— 
over 2000 copies sold 

® Portability on over 35 different 
host machines 





® A robust, production compiler 





| END 


ene anne for future 
application development 


An excellent user / reference 
manual with over 400 pages of 
lucid and useful documentation 


© A C interface to take 
advantage of a vast number of 


EXAMINING ROOM 


directly to screen memory. This rou- 
tine’s Output was not used because it 
cannot be redirected. (The ability to 

The slower print speeds occur be- 
cause PDQ’s standard PRINT commands 
go through DOS services. PDQ also 
contains a PDQPRINT routine that prints 


rem $include: ‘pdqdecl.bas’ 
DIM flags(8190) 
CLS 


_ PRINT "25 iterations" 


start&=pdqtimeré& 


| FOR 4 = 1 To 25 


count = 0 


FOR i = 0 TO 8190 


— flegeti) = 1 
| NEXT 1 


__sIF flags(i) THEN 
_ Prime = iti +3 
kK = 1+ prime 
WHILE k <= 8190 


flags(k) = 0 
k= k + prime 
_WEND 
count = count + 1 
END IF 
NEXT i 
NEXT } 
doneé=pdqt imeré 
tot &=(10* (done&-starté)) \182 
‘convert timer ticks to seconds. 
frack=(100006* (10* (doneé&-starté&) 
mod 182))\182 ‘and decimal. 


_ PRINT count;"primes in “;rtrim$ 


({strs (totsé));".";fracé&; "seconds." 





Example 2: PDQ version of the 


Sieve program 


Introducing C_talk/Views™, a major 
productivity tool for Microsoft® Windows 


direct output is of great use in utility 
programs.) Also the routine does not 
automatically scroll. 

PDQPRINT is useful when a pro- 
grammer needs to force screen print- 
ing (even when the standard output 
has been redirected), or when greater 
speed is necessary. In addition, PDQ- 
PRINT supports color attributes; the 
PRINT routine in PDQ doesn’t. 

I also compared the speeds of the 
integer operations, and found little dif- 
ference between PDQ and QB 4.5. Re- 
alistically, integer operations are so fast 
in nearly any compiler that much greater 
performance increases result from the 
use of optimization techniques rather 
than from the use of tricks for integer 
arithmetic. Because PDQ uses the code 
generation of QB 4, any optimization 
(or lack of it) in QB’s code generation 
is reflected in PDQ. The performance 
changes for PDQ result only from 
changes in library routines. 


TSR Power 

The PDQ library does more than just 
remove functions and commands — it 
also adds some new ones. The most 
notable added commands and func- 
tions make TSR programs possible. 
Some of these new commands and func- 
tions are: 


Introducing C talk /Views'™ 


Reduce 
C Programming 


KO) MBL ROMA Yabalele dures 
by 75% 





easy-to-learn and powerfully consistent 
interface to the rich functionality of MS 


that lets you reuse your present 
code 


With features like... 


® Structured language constructs 


™ SHELL command to invoke 
child processes 


® LOCK, UNLOCK for files and 
records 


® CLS, LOCATE, COLOR 
® PIPE to sub-process 


” Native floating point hardware 
support 


*® Multi-line DEF FN’s 











existing applications and 
libraries 


® Modular programming with 


separate compilation 


Full error recovery 


* Debugging and trace facilities 


Dynamic arrays 


* Local, global, shared and static 


variables 


- Toolkits for existing libraries — 


(C-ISAM and M-ISAM) available 


i Basmark Corporation 


(216) 621-7650 e 


FAX (216) 621-7652 ¢ Telex 650-333-1701 
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program development in C. Slash your MS 
Windows program development time by up 
to 75% through the powerfull object-oriented 
programming (OOP) technology of C_talk. 
With C_talk/Views, the most common 
elements of all MS Windows programs are 
packaged into reusable software 
components-object classes. Over forty 
software components are included as a 
complete applications development 
framework. These object classes provide an 


PR 


wl bg 


Windows. C_talk/Views is also a real OOP 
environment. Use the software 
components as they are, or extend them to 
meet the most demanding applications. 


Coming soon...C_talk/Views for the 
Apple Macintosh®... now your MS Windows 
program will port to the Mac with little or no 
change! 


$450.” 


CNS, Inc. 

Software Products 

7090 Shady Oak Rd. 
Minneapolis, MN 55344 
612-944-0170, Fax 612-944-0923 


In the US, add $5 for shipping. 
($25 for int'l handling) 


. providing and advancing 
object-oriented methodology. 
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TestHotKey StuffBuf 
IntEntry1 ResetKeyboard 
PopUpHere PopDown 
PointintHere IntEntry2 
GotoOldInt EndTSR 
CallOldInt 


Rather than explaining each of these 
commands in detail, I'll present a sam- 
ple TSR program that uses them. 

I altered one of Crescent’s many dem- 
onstration programs to output keyboard 


defint a-z 

call initstr(a$,128) 

call initstr(b$, 8192) 

aS=command$ 

if rtrim$(a$)="" then 
print "Syntax:” 
print"UCASE filename" 


print"The named file will be converted in place to upper-case. 


end 
end if 
open rtrim$ (a$) 


sizeé&=lof (1) ‘file size 


if size&=0 then close 1:kill rtrim$(a$):end 

‘start with the first byte 
’as long as there are bytes to read 

‘how much is left? 

if remains&<8192 then call setlength(b$, remains&) 

‘grab the next chunk to convert 

‘upper-case it 

"write it back out 

‘update the file position 


whereg=1 
while whereé<=sizeé 
remains&=sizeé-whereétl 


get 1,whereé,bS 
b$=ucaseS (b$) 
put 1,whereé,b$ 
whereé=whereét+len(b$) 
wend 
end 


Example 3: Sample filter utility 


for Dinary as #1 


macros. The sample program intercepts 
calls to interrupt 9 (the standard key- 
board interrupt). If the key combina- 
tion pressed is ALT-A, ALT-S, or ALT-D, 
the TSR program clears the keyboard 
buffer and inserts the defined sequence 
of keystrokes into the same buffer. Non- 
trapped keys are passed to the stan- 
dard Jnt 9 handler. You may not stuff 
more than 15 characters into the key- 
board buffer (as mentioned in the PDQ 
documentation). 


‘by default, all variables are integers 
’initialize a$ to 128 characters 
‘buffer for file is 8K bytes 

’look at the command line 

‘no file named; give help. 


" 


‘no random files in PDQ 


‘no such file 


'< 8192 bytes 


The sample programs furnished with 
PDQ do work. If you have any doubts 
about the correct way to do something 
with PDQ, look at those examples care- 
fully. I accidentally omitted the final 
call ReturnFromIntfor ALT-D, and was 
sure I’d found a bug. When my pro- 
gram was changed to a TSR program, 
all attempts to use macros failed after 
the first time that ALT-D was pressed. 
I’m not exactly sure why this happened, 
but the error was certainly mine and 
not PDQ’s. 

Even Basic’s executables would make 
such TSRs rather wasteful. With PDQ, 
TSRs are small enough to be practical. 
The sample program that I just pre- 
sented results in an EXE file of only 
2404 bytes in size. 


The Manual 

The PDQ documentation supplied with 
the first release of the library was in 
preliminary form, and will be changed 
soon. Ethan Winer of Crescent Soft- 
ware told me that only 100 manuals 
were printed for the first release of 
PDQ, so criticisms of the documenta- 
tion may be moot. 

It is important to note that if your 
program uses large static arrays, you 
should use the /ex option on the link 
command line. (This option is not men- 


Announcing! 


Dyname String hailing for ¢ 


Since 1972, C programmers have waited for true dynamic string handling 


bStrings : Variable 
length string handling 
that is automatic and 
fully transparent. Save 
development time. 
Concentrate on your 
program - not on string 
manipulations. 


facilities like those in BASI 
TRUE DYNAMIC STRINGS 


Over 100 Functions Covering: 
* Cut 
* MidStr * User Input 
* Buffered file I/O 


Bak AL ever, * Source pode available. * lee bls a 


* Paste 
* Search * Replace 


* Low Level file I/O 


* Copy 


finite asa nese sea Seisishata sonia , ataearate arene nan A ae nanan en a AnH nna 


Available for Microsoft C, Turbo C or Quick C. 


* Concatenate 


The bStrings library is E 
coded for efficiency - using 
memory management : 
techniques guaranteed not 
to fragment heap space. 


$89.95 


30 day unconditional guarantee. 
Visa/MC/Amex/C.O.D. 


See 


COMING - December 1989: TL4C: The Text Library for C. The Worlds Most Comprehensive Text Library For C Programmers 


Robust Text Buffer Management * Hypertext * Real Unix regular expressions * Interfaces to virtually all screen management packages. 
Users upgrading to the full TL4C library wil receive credit for the full purchase price of bStrings. Trademarks are the property of their respective owners. 


1-800-277-0303 KBM Communications, Inc. 2401 Lake Park Dr., Suite. 160 Atlanta,GA 30080 
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tioned in the first version of the man- 
ual.) The /ex option packs space used 
by static arrays and results in much 
smaller EXE files. Without the /ex op- 
tion, the SIEVE program compiled to 
approximately 18K under PDQ. I also 
used the /ex option when I compiled 
with QB 4.5. 

This first version of the manual was 
disorganized in places, but was fairly 
easy to use. The information about the 
new commands and the changes from 
QB 4 were well organized, but the 
discussion of TSR programs was incom- 
plete. In some places, the manual didn’t 
match the syntax of the first release. 
Fortunately, the distribution disk con- 
tains a generous number of helpful 
example programs, all of which work. 
If you purchase PDQ, I recommend 
that you read the manual and then pay 
very close attention to the examples 
on the disk. 

From previous experience, I knew 
that Crescent Software’s manuals are 
chatty and easy to read. The manual 
for PDQ is typical. Ethan Winer clearly 
knows a lot about the internals of Quick- 
Basic, and he’s not shy about sharing 
his knowledge. The manual contains a 
number of performance hints, tips for 
reducing the size of typical PDQ and 
QuickBasic programs, and even ways 


to call QuickBasic library routines di- 
rectly. One such example shows how 
to force QuickBasic to do the equiva- 
lent of MAT READ. 

On balance, I liked the manual very 
much despite its early flaws; later ver- 
sions of the manual should be better. 


Overall Utility 
PDQ is aimed at QuickBasic program- 
mers, but it has clear applicability in 
other areas. In the past, I resorted to 
the use of assembly language or C to 
write small utilities. I resented the gen- 
eral unreadability of C and the more 
complicated compilation process that 
it requires. Also, because of the low- 
level nature of assembly and C, I found 
the debugging process to be far more 
tedious than the process of debugging 
Basic, even with the new versions of 
C and assembly from Borland and Mi- 
crosoft. As long as I benefited from 
efficiency and speed, I was willing to 
put up with those disadvantages. 

Granted, there will still be times when 
C or assembly are the most suitable 
tools for the job. PDQ simply makes 
those times less frequent, and makes 
my work easier. 

Programmers who are unfamiliar with 
either C or assembly can now attempt 
more projects. With the advent of PDQ, 


Basic can only gain stature as a readable 
and efficient language that is suitable for 
both small and large projects. As a long- 
time Basic enthusiast, I can’t pretend 
to be unbiased about the prospect. 

PDQ is a watershed product. I think 
it is the first in a series of efficient 
compilers and alternative libraries. In 
the next few years, we’ll almost cer- 
tainly see similar attempts for C, Pascal, 
and other popular languages. Subse- 
quent products will surely include ever 
more efficient compilers and linkers, 
benefiting us all. 

Whether or not you find PDQ ap- 
pealing, I feel sure that the approach 
taken by Crescent Software is the ap- 
proach that the whole industry will fol- 
low in the future. Other developments 
are doubtful — this one is not. Bloated 
code may finally be doomed. 


Product Information 


P.D.Q. Crescent Software, Inc. 
11 Grandview Ave., 


Stamford, CT 06905 

Includes full source code 

For IBM PC, XT, AT, or compatible 
$99 
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Looking for a powerful, 





feature packed text editor to be included 
into your application? Now Available: 


TE Developer's Kit 


TE Developer's Kit is the most cost effective way of incorporating text 
editing features into your application. The kit includes complete source code 
of the editor, library routines and the executable file. TE Developers Kit supports 

Microsoft and Borland 'C' compilers. 


The Features Include: 


* Complete full screen editor. » Multiple files/windows. » Word wrap and printing functions. 

* Support for files larger than available memory. * Reconfigurable Keyboard commands and 
screen colors. * Keystroke macros. * Undo. * Columnar block commands. * Search/replace. 
» Autosave. 
The kit includes TES small editor routine. TES provides scrolling functions, word-wrap and block 
commands. An application can call this routine without any modifications to the routine. Your 
application specifies window co-ordinates, maximum file size, and an input buffer or file. 


= Set of C libraries for easy access 
ioe] =Jate) =m el-1t-W-lalemlalel>) @il(- 1s 

=» No need to concern yourself with 
internal files format. 

Ms laleia=y-\cx-10 mm el-1a(e)aant-laler-m-yale)acclals) 
processing time. 

= Total control over data memo, MDX 
and NDX index files. 3 

mUl\-mtal-M ial (el{-y Alen ar-talemil=>d1e)] [16 ae lm On 


The Kit is most favorable priced at $125.00 


** TEAM ** 
The Programmer's Text Editor 


TEAM incorporates all the text editing features of TE developer's kit listed above 
(w/o source). Additional features include popular bar style menu selection, regular 
expression search, complete undo, redo, ZOOM window, delimiter matching, book 
marks, releases entire memory for DOS commands, keyboard macros EGA-VGA 
and a powerful high level macro language similar to 'C'. The macro language 
includes 33 'C' operators, if / else, while, do, for and goto Syntax, 
and follows ANSI 'C' conventions for the function calls. 
TEAM offers you everything you need in a programmer's 
text editor. Why would you need anything else! 
(Introductory Price $80.00) 
To Place An Order, Call 


Sub Systems, Inc. + 1-800-447-6819 
159 Main Street, #8C, Stoneham, MA 02180 « 1-617-438-8901 
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New from Plum Hall: 
Books on Standard C, 
Training, and the 





August 1989: Plum _ Hall 
announces publication of the 
Second Editions of the introduc- 
tory text Learning to Program in C 
and the reference book C Program- 
ming Guidelines, completely re- 
vised for the new C Standard. 


Learning to Program in C 
(Second Edition, for Standard C) is 
the basic text for learning C 
Language. It is a straightforward 
book with no assumptions of prior 
computer jargon. 


C Programming Guidelines 
(Second Edition, for Standard C) is 
the Plum Hall style manual for 
writing efficient, portable C pro- 
grams which will be reliable and 
readable by future maintainers. 


All Plum Hall books are still the 
same price: $25 (USA). 


The Plum Hall materials, 
including our advanced textbooks 
Efficient C and Reliable Data 
Structures in C, comprise the only 
integrated series on C, with consis- 
tent style throughout. 


Plum Hall Validation Suite 


Our training uses the same solid 
integrated approach, and has also 
been revised to Standard C. 


Most compiler-writing com- 
panies, and companies testing 
various compilers for accuracy, 
are using our authoritative Plum 
Hall Validation Suite for C. 


Call, FAX, or send e-mail for 
information on all Plum Hall 
offerings. Mastercard and Visa 
orders are shipped within two days; 
add $2 per book for shipping to 
mainland USA. 


Plum Hall is at your service. 


Joan Hall 

President 

Plum Hall Inc 

1 Spruce Avenue 

Cardiff NJ 08232 USA 
609-927-3770 
609-653-1903 (FAX) 
info@ PLUMHALL.UU.NET 
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Functional 


Programming and 
FPCA 789 


Editor’s Note: Over the past few years, 
a new method of developing and writ- 
ing computer programs called ‘func- 
tional programming” has evolved with- 
out getting much attention from the 
general public. Nevertheless, this novel 
paradigm may influence programming 
five to ten years from now. Every sec- 
ond year, the advances in this area are 
discussed at the Conference on Func- 
tional Programming and Computer Ar- 
chitecture (FPCA). FPCA ‘89 was held 
in London, England and DDJ corre- 
spondent konald Fischer was there; here 
is his report. 
oO start with, forget everything 
you have ever learned about 
computer programming. Dur- 
ing the last decade, a new way 
of writing programs has slowly 
developed: The “Functional Program- 
ming Paradigm,” which lacks some of 
the most salient features of traditional 
programming languages. Most notably 
among those missing features are loop- 
ing constructs and the destructive as- 
signment to memory variables. In some 
respects, this new programming style 
appears to be more like writing mathe- 
matical equations than developing al- 
gorithms. Its proponents in fact hope 
that it leads to more bug-free software, 
because programs may be proved cor- 


Ronald is a software developer for Soft- 
ware-Entwicklung & Consulting and 
can be reached at Straubinger Strasse 
20, D-8000 Miinchen 21,W. Germany. 
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rect by mathematical means, instead 
of by debugging. As an example, con- 
sider a function SUM, which returns the 
sum of a list of numbers: 


DEC SUM: LISTCNUM)— NUM; 
--- SUM(NIL) <= 0; 
--- SUM(H::T) <= H + SUMCT); 


This example is coded in a “real” func- 
tional language called ‘“Hope+.” I have 
chosen this language because of its 
straightforward syntax. Hope+ programs 
are easy to understand even if you are 
not yet comfortable with functional pro- 
gramming (FP for short). 

The first line DEClares the function 
SUM as a mapping from the set “list of 
numbers” onto the set “numbers.” The 
next two lines describe what SUM actu- 
ally does: If applied to an empty list, 
SUM returns zero. If SUM is instead 
applied to a list consisting of a head H 
and a tail 7; it sums up the tail and adds 
it to the head element. For Prolog pro- 
grammers, this way of thinking may 
be familiar. Actually, there is a strong 
relationship between “pure” Prolog (that 
is, no “cut,” no side effects, no extra 
logic features) and Hopet+, as you may 
easily model one with the other. 

Functional programs are appealing 
because they are free of side effects. 
They are called “referential transpar- 
ent,” which means that two successive 
invocations of a function with the same 
arguments always yield the same re- 
sults. In traditional languages such as 


C, this may or may not be the case. 
Here is a C function that is not referen- 
tial transparent: 


int fooCint n); 
{ static int c=0; 
return n+getchar( )+(c++); 


You can argue that some programs 
are impossible to write without relying 
on side effects. Interactive input/out- 
put comes to mind, or generation of 
random numbers. As we will see shortly, 
this is not true: Every conventional pro- 
gram can be written in functional style. 
But first, it is necessary to understand 
a few little FP basics. 


In the Beginning 

The roots of FP can be traced back to 
the famous mathematician Alonzo 
Church, who developed in 1941 a no- 
tation to reason about mathematical 
functions without giving them explicit 
names, that is, anonymous functions. 
This notation was called the “lambda 
calculus,” and a function that returns 
the square of its argument looks similar 
to this in Church’s notation: A x«.x°*x 

The argument x is listed to the left 
of the period. In order to calculate the 
square of a particular number, say 5, 
you write (A x.x*x) 5. 

It can be shown (but to do so would 
require a separate article the length of 
this one) that every function and thus 
every computer program could be writ- 
ten as a series of — possibly nested — 
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lambda expressions. This is not obvi- 
ous at all; just think of how you would 
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The first application of Church’s the- 
ory was incorporated into the program- 
ming language Lisp, where the previ- 
ously defined function to square its 
argument could be written as (A X (*X 
X)). Lisp could be very close to func- 
tional programming, but for efficiency 
reasons, Lisp designer McCarthy soon 
had to abandon this concept in favor 
of a more traditional approach. For ex- 
ample: (SETQ V 5) replaces the previ- 
ous value of V with the new value 5. 
Destructive assignments, however, are 
forbidden in any FP language. 

It was not before the 1970s that re- 
searchers really began to investigate 
the possibility of a pure functional lan- 
guage. In 1978, Fortran inventor John 
Backus published his now historic pa- 
per, “Can Programming Be Liberated 
From the Von-Neumann Style,” where 
he described a new functional language 
called “FP.” Soon after, research activ- 
ity took off. 

Cheaper memory and faster CPUs 
made functional programming usable. 
Hope+ was developed and used inter- 
nally at universities for teaching pur- 
poses and for application programming. 
The first full-featured and commercially 
available compiler for a functional lan- 
guage was announced in 1985 at the 
International Conference on Functional 
Programming and Computer Architec- 
ture (FPCA ’85) at Nancy, France, by 
researcher David Turner. The language 
implemented was called “MIRANDA” 
and introduced a formalism called “cur- 
rying” (named after the theoretician Has- 
kell B. Curry): A function of 1 argu- 
ments may be treated as a concatena- 
tion of m single-argument functions. 
Thus, if PLUS expects two arguments 
and returns their sum, the expression 
PLUS 1 denotes a new function of one 
argument, which simply adds / to it. 

Miranda and Hope+ are not only 
pure functional languages for use in 
research; they are also intended to be 
used for application programming. As 
mentioned earlier, there seems to be a 
conflict between referential transpar- 
ency and some real-world problems 
such as input/output. Of course, input 
from the terminal could be regarded 
as a list of characters that can be passed 
at once to a function for processing. 
Because Output to the screen may be 
regarded as a similar list, one may be 
tempted to define a program doing in- 
teractive I/O in the following way: DEC 
DIALOGUE: LIST(CHAR)— LIST(CHAR); 

But this requires the program to an- 
ticipate the whole input at once and in 
advance! In an interactive environment, 
however, most input will not be avail- 
able until at least part of the output has 
been written to the screen. 
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One solution to this problem is 
termed “lazy evaluation.” During func- 
tion evaluation, the program consumes 
only as much from its (input) parame- 
ters as is necessary for the communica- 
tion with the terminal. Therefore, al- 
though DIALOGUE conceptually ac- 
cesses all of its input at the beginning 
and delivers all of its output at the end 
of the computation, the code gener- 
ated by the compiler manages the in- 
terleaving of input and output. The 
programmer, of course, need not 
WOITY. 


Look for instance at the program 
SILLY in Figure 1. It expects a list of 
character digits and comments on each 
character received. If the character re- 
ceived is indeed numeric (a digit), it 
says ‘‘That’s fine.” If it is not numeric, 
it complains. SILLY may be connected 
to a terminal like this: 


TOFILE(term_in,silly(FROMFILE 
(term_out)); 


_term_in and term_out are not part of 


the language definition, but identifiers 
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such as these should be provided by 
the respective Hope+ installation. Due 
to lazy evaluation, the user gets a re- 
sponse after each typed character. 
Infinite data structures like the ter- 
minal input mentioned are called 
“streams.” Streams are not only useful 
for input/output. The following Hope+ 
function returns an infinite list of suc- 
cessive integers, starting with N: DEC 
ILIST: NUM —LISTC(NUM); — FROM(N) 
<= N :: FROM(N+1); This would be 


eit 


(NIL <= FALSE; 
Ir (a as: :t) <= TRUE; 
a <= miowroerls 1 i 





Ficate 1: This program sinoats a list 
of character digits and comments on 
each character received 


example program a 
ree whose nodes can be any type 


ree = (ree *) 


tree, first flatten it to get a list of nodes. 
a sorted tree from the list sort = flatten -b 


pope - co _ 


_ ee 


2 





Figure 2: A Henene sort function 
that sorts anything as long as it is rep- 
resented as a tree and has an ordering 
relation defined on it 


ers FACTORIAL function i in NIAL_ 


oe Is i [sum, tally] 





Figure 3: Sample N NIAL code 
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impossible to accomplish without lazy 
evaluation, because a call to LIST would 
lead to a non-terminating loop. In 
Hope+, however, it is perfectly reason- 
able to work with those functions and 
structures. 


Using FP in Real Projects 

So, what if you decide to use functional 
programming in real projects? There 
are a lot of compilers for imperative 
languages such as Fortran, C, Pascal, 
and even Smalltalk and Prolog, but if 
you go to a software store and ask for 
a nifty little FP system for your work- 
station, you will be disappointed. 

Indeed, the present situation is remi- 
niscent of the time the first Fortran 
compilers became available in the mid- 
1950s: Insiders knew that something 
revolutionary was going on, but how 
were they to participate? The situation 
with functional programming appears 
similar, but as it happens it could be 
WOIse. 

Presently, the most advanced prod- 
ucts run under Unix. This comes as no 
surprise because this operating system 
is prominent among universities. Hope+, 
for instance, runs under Unix. This com- 
piler is not freely available, however, 
so you have to contact a university 
computer science department to get a 
copy. For instance, Imperial College 
of London runs a copy of Hope+ in its 
functional programming laboratory. 

At present, only one language pro- 
viding full laziness is commercially avail- 
able: Miranda, the programming lan- 
guage invented by David Turner. 
Turner, who at the time worked at the 
University of Kent in England, founded 
his own company, Research Software 
Ltd., in order to market his compiler, 
which is currently available on Sun, 
Apollo, VAX (running Ultrix), and the 
Hewlett-Packard 9000 series. 

One of Miranda’s attractive features 
is its provision for strong typing with- 
out requiring the programmer to write 
any type declarations for variables. The 
compiler simply deduces the type of a 
function from its applications, and re- 
ports any inconsistencies it finds. 

Data abstraction is realized by “con- 
structor functions,” which can be com- 
pared to user-defined types in tradi- 
tional languages. To define a type tree 
representing a binary tree of numbers, 
you simply write: tree ::= niltree | node 
num tree tree. 

In this equation, mum is a prede- 
fined, primitive type, while the remain- 
ing words are user defined and intro- 
duced to the system with this equation. 
A function sumtree, which sums up all 
numbers stored in a tree, could be writ- 
ten like this: 


sumtree niltree = 0 

sumtree (node number left right) = 
number + sumtree left + sumtree 

right 


New trees are built by the application 
of the constructors. The expression: 
node 5 (node 2 niltree niltree) niltree 
returns a tree whose root contains the 
number 5, whose left branch contains 
2, and whose right branch is empty. 

As in Hopet+, functions in Miranda 
can be polymorphic. This means that 
you need not worry about a concrete 
type as long as some structural invari- 
ant is observed. Figure 2 shows a poly- 
morphic sort function that sorts any- 
thing as long as it is represented as a 
tree and has an ordering relation de- 
fined on it. 

Miranda is unique in that it is already 
used for many industrial applications. 
Among the steadily increasing commu- 
nity of Miranda users are Toshiba, 
Signetics, Shell Netherlands, BP (UK), 
Olivetti, Logica Cambridge, and ICL. 
The British company Logica Cambridge 
uses Miranda currently for the design 
of Viper 2, a special-purpose micro- 
processor for real-time control. 

For MS-DOS and OS/2, there are 
fewer possibilities for doing FP today. 
This is understandable, because these 
operating systems are used extensively 
in the scientific community. Also, due 
to memory limitations, porting a com- 
piler such as Miranda to MS-DOS is a 
non-trivial, if not impossible, task. The 
market for OS/2, on the other hand, is 
not considered important enough yet 
to justify the cost of a conversion. 

If you are willing to sacrifice lazy 
evaluation, there are a some languages 
available: Q’NIAL, for example, is an 
excellent implementation of the NIAL 
(nested interactive array language) lan- 
guage, which not only incorporates an 
equivalent of Backus’s FP language as 
a subset (see Figure 3 for examples), 
but also contains a lot of useful, im- 
perative constructs. Because Q’NIAL is 
not only offered for DOS, but also for 
OS/2, Unix, VMS, and several other 
systems, it may be the language of 
choice for doing serious application 
development. 

Some Lisp dialects also enforce, or 
at least enable, programming in a func- 
tional style. PC-Scheme, an implemen- 
tation of the Lisp-derivate Scheme by 
hardware manufacturer Texas Instru- 
ments, is an example. The compiler is 
well made, but the user interface lacks 
speed and sophistication. There is also 
a functional Lisp derivate called “Le- 
Lisp,” implemented at a French univer- 
sity for Unix and DOS. A public domain 
version of Backus’s FP was implemented 
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in C by Arch D. Robinson, Urbana, 
Illinois. It runs on Unix and MS-DOS, 
but may be used only for educational 
purposes because it is so slow. 


FPCA ‘89, the Haskell Language, 

And More 

The papers presented at FPCA ’89 cov- 
ered a wide range of subjects, from 
purely theoretical subjects to industrial 
applications. As with the introduction 
of Miranda in 1985, this year’s confer- 
ence revealed a new and widely dis- 
cussed programming language called 
“Haskell,” named after Haskell Curry 
(creator of the “currying functions” of 
the Miranda language). So what’s the 
advantage of Haskell over Miranda? 

While Miranda certainly is suitable 
for every kind of program development, 
it does not particularly support large 
projects with tens of programmers writ- 
ing hundreds of modules concurrently. 
Haskell, on the other hand, supports 
modular programming by requiring the 
definition of clean interfaces between 
modules and of abstract data types. In 
some respects, Miranda is to Haskell 
as Pascal is to Modula-2: The spirit is 
the same, but the latter is more ad- 
vanced. 

Second, and even more important: 
Haskell is free! This means that for a 
nominal fee covering shipping and han- 
dling, anyone can get the original soft- 
ware including the source code and 
port it to any operating system for re- 
sale. Of course, there will be a version 
available ready to use that has to be 
paid for. 

In this manner, the Haskell research 
group, centered around Philip Wadler 
and Simon Peyton-Jones of Glasgow 
University, hopes to spread the spirit 
of functional programming around the 
world. Unlikely? Remember how Unix 
became popular. Maybe it will work 
again. Figure 4 shows a small Haskell 
program that types a file FOO to the 
console. Haskell is presently neither 
standardized nor finished, so the actual 
syntax might vary slightly when the 
first compiler is delivered. 

Another interesting feature of Haskell 
is its relationship to object-oriented pro- 
gramming (OOP). Haskell has objects, 
classes, multiple inheritance, and all other 
OOP features except one, of course: 
Haskell objects don’t have internal 


main resps = 
[ ReadFile "FOO" Text, 
case resps of 


(Return Val:_) 
AppendChan "stdout" Text Val ] 





Figure 4: A Haskell program that types 
a file FOO to the console 
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“states,” because this would contradict 
the referential transparency of FP. 
Other papers covered the union of 
FP and OOP, and also of FP and logic 
programming, the paradigm used in 
Prolog. The latter has been proved pos- 
sible by Erik Ruf, an ambitious young 
researcher from Stanford University. 
While demonstrating his ability to speak 
close to the speed of light, he pre- 
sented an extension to the program- 
ming language Scheme. Scheme is a 
deviation of Lisp that doesn’t offer lazy 
evaluation, but enforces programming 
in FP style for subprograms that don’t 
rely on interactive input/output such 
as compilers. Ruf’s extension, Log- 


Scheme, simulates all constructs of 
Prolog, including unification and extra 
logical features such as “The Cut.” 

Maybe the most interesting question 
from the conference is not, “Should I 
use FP or OOP or logic programming 
in the future?” but “Why not use them 
all together?” 

A great deal of the presented papers 
focused on the difficulties experienced 
during the implementation of FP com- 
pilers. Among the topics were the ag- 
gregate assignment problem, strictness 
analysis, and abstract interpretation. 

Adrienne Bloss from the Virginia Poly- 
technic Institute for example, worked 
on the aggregate assignment problem. 
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Aggregates (that is, arrays or records) 
are necessary for storing huge amounts 
of data in an uniform way. Because 
destructive assignment is forbidden in 
the functional programming paradigm, 
how do I, then, “update” an array? In 
theory, the solution is easy: You just 
have to define an “update function.” 
The following example looks like 
Hopet+ again, but because this language 
does not provide arrays at all (lists are 
used instead), I simply invented them 
for the sake of clarity: 

Thus, let ARRAY(T) be an (open 
ended) array of type 7: The update 
function must be declared like this: 
TYPEVAR T; DEC UPD: ARRAY(T) # 
NUM # T > ARRAY(T); 

UPD(A,N, V) therefore returns a copy 
of the array A, except the Mh element 
is replaced by V. Obviously this in- 
volves a lot of copying and memory 
management at run time, especially 
when the arrays are large. In fact, this 
is one of the main obstacles when writ- 
ing efficient FP compilers. Adrienne 
Bloss investigates the possibility of do- 
ing an in-place-update instead of copy- 
ing, for example, a destructive assign- 
ment of Vto the Mh element of A. This 
is not always safe. In the context LET 
A=some array IN TOFILE(term_out, UPD 
(A, 4, 155)), the previous value of A need 
not be kept in memory, while a func- 
tion call like FCUPD(A, N1,V1),UPD- 
(A, N2, V2), G(A)), which involves some 
auxiliary functions Fand G, makes copy- 
ing necessary. Of course, this decision 
is made by the compiler. The program- 
mer still thinks in terms of functions 
free from side effects. 

Another problem area in FP is strict- 
ness analysis. As mentioned earlier, in- 
put/output and infinite data structures 
are handled by lazy (delayed) evalu- 
ation. This works fine in theory, but 
produces much overhead when applied 
to every argument of every function in 
a functional program. 

To optimize the code produced, the 
compiler should know when it can 
safely use a traditional, non-lazy pa- 
rameter passing mechanism. Such func- 
tion parameters are called “strict.” Of 
course, the programmer could provide 
the necessary information. But this 
would introduce a new class of errors: 
Arguments erroneously declared “strict” 
would cause the program to loop for- 
ever. On the other hand, programmers 
themselves are “lazy” and tend to de- 
clare more arguments lazy than neces- 
sary, just to avoid such errors. This 
would lead to correct, but inefficient 
programs. 

Enter strictness analysis. Here, the 
compiler tries to find out which func- 
tion arguments can safely be assumed 
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to be strict by examining the source 
code. This is not an easy task, because 
parameters may be passed through to 
other functions, which in turn must be 
analyzed. Most problems regarding strict- 
ness analysis are solved now, although 
not always in an optimal way: This 
kind of optimization is still very time 
consuming. 

A tutorial on the state-of-the-art of 
abstract interpretation was given by John 
Hughes, also a co-author of the Has- 
kell programming language. He defines 
abstract interpretation as ‘‘a compile- 
time analysis technique to predict in- 
formation about a program’s behavior 
from partial information about its in- 
puts.” The idea behind this is simple: 
The more the compiler knows about 
the program, the more efficient code 
may be produced. A typical example 
is the SIGN function: SIGNCX) is de- 
fined to be -1 for negative X and +1 for 
positive X. SIGN(O) equals zero. 

Suppose a program contains the fol- 
lowing function definition (the “sharp” 
symbol, #, separates the function pa- 
rameters): 


DEC F:NUM # NUM NUM; 
— F(LJ)<=I*SIGN(I"J): 


Now imagine that the compiler is able 
to prove that on every concrete invoca- 
tion of function F, both arguments sup- 
plied always have the same sign. The 
compiler then can conclude that 
SIGN(*])) always produces +1 and F 
therefore reduces to: 


DEC F:NUM # NUM— NUM; 
— Fd, J)<=I; 


As a next step, the function F is obvi- 
ously not necessary at all, because it 
does not perform any computation. This 
means that no code for Fis generated, 
and that every application of, say, FCA, B) 
is simply replaced by its first argument, 
A. The conference also attracted some 
researchers from other areas who are 
normally not associated with functional 
programming in the scientific commu- 
nity. Among the audience, there was 
for instance Professor Tim Teitelbaum 
of Cornell University. Teitelbaum be- 
came quite famous due to his work on 
the Cornell Program Synthesizer, an 
integrated program development sys- 
tem that analyzes and compiles the pro- 
gram while it is being entered. What 
motivated Professor Teitelbaum to make 
the trip to Europe and show interest in 
an entirely different subject? 

“The work with the synthesizer gen- 
erator is motivated by an interest in 
incremental computation,” says Tim 
Teitelbaum, adding, “In the past, we 


have used attribute grammars for this 
purpose. But attribute grammars are 
not the only game in town. A lot of 
people consider functional programs 
a more natural way for expressing in- 
cremental compilation.” For the cur- 
rent version of his program synthe- 
sizer, Teitelbaum and his students al- 
ready use a special technique derived 
from FP called “memorization,” where 
function results are automatically stored 
in a table after the first evaluation, and 
retrieved quickly when the function 
happens to be called again with the 
same argument. 


The Future of Functional Programming 
Clearly, implementation problems are 
no longer stumbling blocks. Lazy evalu- 
ation is a commonly-used technique, 
at least at universities, and FP systems 
perform well enough to be used for 
practical purposes, fast workstations and 
a few megabytes of memory provided. 
This contrasts with the conference held 
at Nancy four years ago, where only 
two examples of very special industrial 
applications were mentioned. 

Despite its name, this year’s FPCA 
covered many topics on functional pro- 
gramming, but practically none on com- 
puter architecture. This is surprising, 
because parallelism in hardware espe- 
cially would gain a lot from functional 
programming: Due to referential trans- 
parency, all arguments to a function 
may be safely evaluated in parallel with- 
out worrying about possible conflicts. 
Despite this, the resolution of many 
implementation problems has obviously 
shifted towards a software instead of 
hardware solution. 

The implications of this fact are not 
yet apparent. Perhaps most researchers 
concentrate on sequential machines be- 
cause those are available today and in 
widespread use. The opinions are not 
undivided, however. Tim Teitelbaum, 
for instance, assumes that, ““The future 
will be dominated by parallel architec- 
ture. The issue of how to program such 
machines is still very open. If it turns 
out that the FP people really have the 
answer, then we will necessarily switch 
over to functional programming in or- 
der to get the benefits of the parallel- 
ism.” 

The next conference, FPCA ’91, will 
be held in the United States. At that 
time, the first version of Haskell should 
be up and running. Maybe the revolu- 
tion has already begun. 
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C Why dBASE 





Build a multi-user, 
85K, dBASE com- 
patible application 


popup windows, and 
data entry from 
pick lists. 


Portable 
When you are done, 
port your application 
to Unix, Microsoft 
Windows and OS/2 
without modifying a 
single line of code. 
Then watch as your 
application runs many 
times faster than corre- 
sponding dBASE, Clipper 
or Foxbase programs. 
Finally, you can keep 
all the profits after you 
have distributed unlimited — 
numbers of your executable 
programs royalty free. 


Compatible 
Code Base 4 lets you access 
and modify the data, index 
and memo files of dBASE 
Il, dBASE IV, or Clipper. 
Consquently, you can take 
advantage of dBASE com- 
patible tools such as R&R 
Relational Report Writer. 
Switch between Turbo C, 
Quick C, and Microsoft C. 
Take advantage of integrated 





programmers 
are excited! 


ean 










_ 2 


a 


5 "development 
environments, sophisticated 


debuggers, and programs 
which compile and link 
in seconds. 

Learn Code Base 4 by 
consulting the comprehensive 
206 page user’s guide while 
interactively executing Code 
Base 4 routines from a 
learning utility. Then try 
example programs from the 
diskettes or the user’s guide. 
You will easily remember the 
Code Base 4 routines which 


CIRCLE NO. 213 ON READER SERVICE CARD 





correspond directly 
to familiar dBASE 
commands. 


Source Included 
As you become an 
expert Code Base 4 
user, you will find 
yourself examining the 
source code as you read 
about the internal 
operating principles 
of Code Base 4. 

Enjoy the benefits of 
complete dBASE func- 
tionality, including data 
entry, windows, menus, 
multiple index files per 
database, dBASE 

expression evaluation, 
fields, filters, relations, 
reindexing, and editing. 


Order Today 

Order Code Base 4 at $295 
and you will soon know why 
Sequiter Software Inc. and 
most software dealers are 
happy to give a 30 day 
money back guarantee!! 


Call (403) 439-8171 
Fax (403) 433-7460 


SEQUITER ||| 
SOFTWARE INC. 

P.O. Box 5659, Station L 
Edmonton, Alberta 
Canada T6C 4G1 


The professional menu system 
in a graphics environment for _ 
TURBO C, MICROSOFT C,TURBOPASCAL 


graphics-MENU 


now forms menus with 


Data Entry Module 


Starts at $99 (8c) SOURCE AVAIL. _ 

| graphics-MENU from 
ISLAND SYSTEMS IS a 
comprehensive utilities 
package that allows the 

developer of graphics 
software applications to 
quickly create a 
user-friendly interface 
with menus, messages © 
and forms. Spend more 
time focusing on the 
internals of your 
application. 


any text here #.EXE 





Mouse handling as well as Full keyboard support. 
* Pulldown Menus & Popup messages. | 
Underlying graphics automatically saved. 
Uses Expanded Memory if available. 
Shadowed menus create a 3-D effect. 
Disabled entries and divider lines. 


Fowr Buttons Deno (LAR to drag) 
CJ First Button Second Button 


@ third Button — EXIT 


Mouse can drag menu/message to reveal image beneath 


* Vertical List optionally titled. - 
Horizontal list with aligned pulldown menus may have 
nested submenus to any depth, = = 
Popup message boxes with or without user prompt. 
Button menus in any arrangement, radio style optional. 
Analog clock settable by moving hands with the mouse. 
Limitless hybrids of the above menus for customization. 
Geometric interface functions: point rotation, distance, 
degrees/radians conversion, true 4-quadrant arc tangent. 


kou nang volts? 





We are also including** three utility programs: Ce 
is a Cursor icon Editor that enables creation of custom cursor 

icons and associate them with any mouse button or chord. | 

Color Customizer allows complete color specification via an on- 


screen pallette. 





* is a very powerful utility that enables you to create 
and view complex horizontal & vertical menu structures on-screen 
and then writes TP, or TC/MS-C code to implement this structure in 
your application program. : - _ 
**MenuDesigner included with META version. Available for $49 with BGI version 


Datakntry . -_. 
The Data Entry Designer enables creation of forms type menus via 
an on-screen design environment, and then writes TP or TC/MS-C 
code to implement the form menu in your application. 
The. Data Entry Modute is a specialized library to enable the 
developer to easily create forms type menus. A high degree of 


flexibility has been built-in to allow "hooks" into the library for all 


types of data entry applications. 
Personal Information Forn 
Total Family Members: [3 | 





* dBASE-like string specification 

* real-time data checking 
data type validation 
automatic field movement 
can combine with other 
graphics-MENU menu types 
several types of form exit conditions 

_ help message facility 

multi-pageforms  _ 
professional string editting 


eatures: 
Last Name First Name 





Marital Status: '€te-T> 
Select Marital Status 


30 day money back guarantee on non-source 


META VERSION 

Requires: MetaWindow (from Metagraphics Software), IBM 
with graphics, hard disk. 

Includes: graphics-MENU library, CurEdit, Color Cus- 
tomizer and MenuDesigner 


for TP or TC or MS-C 
lib source(TP) add 
lib source(C) 
Data Entry Module 
Data Entry Designer 
(with Data Entry Module) 





BGI VERSION 

Requires: Borland Turbo Pascal or Turbo C, IBM with 
graphics, hard disk. 

Includes: graphics-MENU library, CurEdit, Color Cus- 
tomizer. 


for TP or TC 
lib source add 
MenuDesigner 
Data Entry Module 
Data Entry Designer 
(with Data Entry Module) 


—_—— 


~ (617) 273-0421 
FAX 


Island Systems 
7 Mountain Rd. Burlington MA 01803 617) 933-1152 
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OBJECT PASCAL 


Listing One (Listing continued, text begins on page 17.) 


TYPE 
GraphNode = 


OBJECT (TObject) 
Next: GraphNode; 


END; 


GraphList = 


HotRegion: 


PROCEDURE 


RgnHandle; 


Initialize; 


{ Drawing Methods } 


PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 

{ 
PROCEDURE 


Draw; 

DrawAll; 

Erase; 

EraseAll; 

Location Methods } 
SetRegion; 


FUNCTION PtInNode (Where: Point): Boolean; 

FUNCTION FindNode (Where: Point): GraphNode; 

FUNCTION Connected(Which: GraphNode): Boolean; 
FUNCTION FindConnected (Which: GraphNode): GraphNode; 


{ 
PROCEDURE 
PROCEDURE 


OBJECT (TObject) 


END; 


Vertex = 


FirstNode: 


PROCEDURE 

{ 
PROCEDURE 
PROCEDURE 


Freeing Methods } 
Free; OVERRIDE; 
FreeAll; 


GraphNode; 
Initialize; 
Drawing Methods } 
Erase; 

Draw; 


{ GraphList Manipulation Methods } 


PROCEDURE 
PROCEDURE 
{ 


AddNode (Which: GraphNode) ; 
RemoveNode (Which: GraphNode) ; 
Location Methods } 


FUNCTION FindNode (Where: Point): GraphNode; 
FUNCTION FindConnected (Which: GraphNode): GraphNode; 


{ 
PROCEDURE 


OBJECT (GraphNode) 
Center: Point; { Location of Vertex } 


END; 


Edge = 


PROCEDURE 


Freeing Methods } 
Free; OVERRIDE; 


Initialize; OVERRIDE; 


{ Drawing Methods } 


PROCEDURE 
PROCEDURE 


Draw; OVERRIDE; 
Erase; OVERRIDE; 


{ Location Methods } 


PROCEDURE 
PROCEDURE 


OBJECT (GraphNode) 
FromVertex: Vertex; { End Points of Edge } 


OVERRIDE; 


END; 


Graph = 


ToVertex: 
PROCEDURE 

{ 
PROCEDURE 
PROCEDURE 


SetRegion; OVERRIDE; 
SetCenter(thePoint: Point); 


Vertex; 

Initialize; OVERRIDE; 
Drawing Methods } 
Draw; OVERRIDE; 
Erase; OVERRIDE; 


{ Location Methods } 


PROCEDURE 


SetRegion; OVERRIDE; 


FUNCTION Connected(Which: GraphNode): Boolean; 


PROCEDURE 
PROCEDURE 


OBJECT (TObject) 
VertexList: GraphList; 


END; 


{ --o--- == GraphNode Methods 


EdgeList: 
PROCEDURE 

{ 
PROCEDURE 
PROCEDURE 

{ 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 


{ 
PROCEDURE 
PROCEDURE 

{ 
PROCEDURE 


PROCEDURE GraphNode. Initialize; 


BEGIN 


SELF .Next 


:= NIL; 


SELF.HotRegion := 


END; 


PROCEDURE GraphNode.Draw; 


BEGIN 
END; 


PROCEDURE GraphNode.DrawAll; 


BEGIN 


Edge.SetFrom(Which: Vertex) ; 
Edge.SetTo(Which: Vertex) ; 


GraphList; 
Initialize; 
Drawing Methods } 
Draw; 
Erase; 
Manipulation Routines } 
AddVertex (Where: Point); 
AddEdge (FromWhich, ToWhich: Vertex); 
RemoveVertex (Where: Point); 
RemoveEdge (Where: Point); 
SetVertexCenter 

(Which: Vertex; Where: Point); 
Macintosh Support Routines } 
MoveVertex (Start: Point); 
LinkVertices (Start: Point); 
Freeing Method } 
Free; OVERRIDE; 


NIL; 


IF SELF.Next <> NIL THEN 


SELF .Next. 


SELF.Draw; { Draw 


END; 


PROCEDURE GraphNode.Erase; 


BEGIN 
END; 
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DrawAll; { Draw next GraphNode } 
this GraphNode } 


PROCEDURE GraphNode.EraseAll; 


BEGIN 
IF SELF.Next <> NIL THEN 
SELF.Next.EraseAll; { Erase next GraphNode } 
SELF.Erase; { Erase this GraphNode } 
END; 
PROCEDURE GraphNode.SetRegion; 
BEGIN 
IF SELF.HotRegion <> NIL THEN { Drop old Region } 
DisposeRgn (SELF.HotRegion) ; 
SELF.HotRegion := NewRgn; { Allocate a new one } 
END; 
FUNCTION GraphNode.PtInNode (Where: Point): Boolean; 
BEGIN 
IF PtInRgn(Whére, SELF.HotRegion) THEN 
PtInNode := True 
ELSE 
PtInNode := False; 
END; 
FUNCTION GraphNode.FindNode (Where: Point): GraphNode; 
BEGIN 
IF SELF.PtInNode(Where) THEN { It’s here } 
FindNode := SELF 
ELSE IF SELF.Next = NIL THEN { There are none } 
FindNode := NIL 
ELSE { Try the Next } 
FindNode := SELF.Next.FindNode (Where) ; 
END; 
FUNCTION GraphNode.Connected(Which: GraphNode): Boolean; 
BEGIN 
Connected := False; 
END; 
FUNCTION GraphNode.FindConnected(Which: GraphNode): GraphNode; 
BEGIN 
IF SELF.Connected(Which) THEN { Is this connected } 
FindConnected := SELF 
ELSE IF SELF.Next = NIL THEN { There are none } 
FindConnected := NIL 
ELSE { Try the Next } 
FindConnected := SELF.Next.FindConnected (Which) ; 
END; 
PROCEDURE GraphNode.Free; 
BEGIN 
IF SELF.HotRegion <> NIL THEN { Free Region Space } 
DisposeRgn (SELF.HotRegion) ; 
SELF.Erase; { Erase then Free } 
INHERITED Free; 
END; 
PROCEDURE GraphNode.FreeAll; 
BEGIN 
IF SELF.Next <> NIL THEN { Free the next GraphNode } 
SELF.Next.FreeAll; 
SELF.Free; { Then Free this GraphNode } 
END; 


{ coerce cccc----- GraphList Methods ------------- 


PROCEDURE GraphList.Initialize; 


Which.Next := SELF.FirstNode; { Link Which in GraphList } 


BEGIN 
SELF.FirstNode := NIL; 
END; 
PROCEDURE GraphList.Erase; 
BEGIN 
IF SELF.FirstNode <> NIL THEN 
SELF.FirstNode.EraseAll; 
END; 
PROCEDURE GraphList .Draw; 
BEGIN 
IF SELF.FirstNode <> NIL THEN 
SELF .FirstNode.DrawAll; 
END; 
PROCEDURE GraphList .AddNode (Which: GraphNode) ; 
BEGIN 
SELF.FirstNode := Which; 
END; 


PROCEDURE GraphList.RemoveNode (Which: GraphNode) 


{ Erase the GraphList } 


{ Draw the GraphList } 


. 
, 


VAR 
Check: GraphNode; 
BEGIN 
{ If it is the head GraphNode, relink the Head } 
IF SELF.FirstNode = Which THEN 
SELF.FirstNode := Which.Next 
ELSE BEGIN 
{ Otherwise look for Which GraphNode } 
Check := SELF.FirstNode; 
WHILE (Check <> NIL) DO BEGIN 
{ If Which is found, 
} 
IF Check.Next = Which THEN 
Check.Next := Which.Next; 
Check := Check.Next; 
END; 
END; 
Which.Free; { Free this node } 
END; 


FUNCTION GraphList.FindNode (Where: Point): GraphNode; 


BEGIN { Find the Node at this location } 
IF SELF.FirstNode <> NIL THEN 
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remove it from GraphList 


FindNode : 
ELSE 
FindNode := NIL; 
END; 


FUNCTION GraphList.FindConnected(Which: GraphNode): GraphNode; 
BEGIN { Find the Node connected to this one } 


IF SELF.FirstNode <> NIL THEN 


FindConnected := SELF.FirstNode.FindConnected (Which) 


ELSE 
FindConnected := NIL; 
END; 
PROCEDURE GraphList.Free; 
BEGIN 
IF SELF.FirstNode <> NIL THEN 
SELF .FirstNode.FreeAll; 
INHERITED Free; { Free GraphList } 
END; 


{ = Ssse=s=S-S=5 Vertex Methods -------------- 
PROCEDURE Vertex.Initialize; 


SELF.FirstNode.FindNode (Where) 


{ Free the Nodes } 


BEGIN 
INHERITED Initialize; 
SELF.Center.h := 0; 
SELF.Center.v := 0; 
END; 
PROCEDURE Vertex.Draw; 
VAR 
theRect: Rect; 
BEGIN 
SELF.Erase; { Erase Vertex Area 
{ Set up Rectangle } 
theRect.top := SELF.Center.v - 10; 
theRect.left := SELF.Center.h - 10; 
theRect.bottom := SELF.Center.v + 10; 
theRect.right := SELF.Center.h + 10; 
{ Draw Vertex } 
FrameOval (theRect) ; 
END; 
PROCEDURE Vertex.Erase; 
VAR 
theRect: Rect; 
BEGIN 
{ Set up Rectangle } 
theRect.top := SELF.Center.v - 10; 
theRect.left := SELF.Center.h - 10; 
theRect.bottom := SELF.Center.v + 10; 
theRect.right := SELF.Center.h + 10; 
{ Erase Vertex } 
EraseOval (theRect) ; 
END; 
PROCEDURE Vertex.SetRegion; 
BEGIN 
INHERITED SetRegion; { Do default processing } 
OpenRgn; { Create new region area } 
SELF .Draw; 
CloseRgn (SELF .HotRegion) ; 
END; 
PROCEDURE Vertex.SetCenter(thePoint: Point); 
BEGIN 
SELF.Erase; { Erase Vertex at old Center } 
SELF.Center := thePoint; { Set the Center } 
SELF.Draw; { Draw Vertex at new Center } 
SELF.SetRegion; { Reset HotRegion } 
END; 
{ SSSSeneessesss Edge Methods -------------- } 
PROCEDURE Edge.Initialize; 
BEGIN 
INHERITED Initialize; 
FromVertex := NIL; 
ToVertex := NIL; 
END; 
PROCEDURE Edge.Draw; 
VAR 
Where: Point; 
BEGIN 
IF (SELF.FromVertex <> NIL) AND (SELF.ToVertex <> NIL) THEN BEGIN 
{ Start in center of FromVertex 
Where := SELF.FromVertex.Center; 
MoveTo(Where.h, Where.v); 
{ Draw line to center of ToVertex } 
Where := SELF.ToVertex.Center; 
LineTo(Where.h, Where.v); 
END; 
END; 
PROCEDURE Edge.Erase; 
VAR 
pnState: PenState; 
BEGIN 
GetPenState(pnState); { Save current settings } 
PenPat (white); { Set color & Draw to erase } 
SELF .Draw; 
SetPenState(pnState); { Reset settings } 
SELF.FromVertex.Draw; { Redraw affected Vertices 
SELF .ToVertex.Draw; 
END; 
PROCEDURE Edge.SetRegion; 
BEGIN 
INHERITED SetRegion; { Do default processing } 
OpenRgn; { Create new region area } 
(continued on page 106) 
105 





OBJECT PASCAL 


MICROSOFT, TURBO AND MIX POWER C PROGRAMMERS...C WINDOWS 
TOOLKIT" PUTS YOU IN CHARGE OF VIDEO and DATA-ENTRY 


Listing One (Listing continued, text begins on page 17.) 


NEW FEATURES 


* Comprehensive data-entry and verification procedures with scanf{ ) type syntax. 

¢ Predefined data-entry functions for dates, SSNs, telephone numbers, currency amounts with 
commas, time, scientific notation, etc. 4); 

¢ Turn any window into an editor with your choice of keyboard mapping (Wordstar™ by default). 


MoveTo (SELF.FromVertex.Center.h + 4, SELF.FromVertex. 
Center.v + 4); 
LineTo(SELF.ToVertex.Center.h + 4, SELF.ToVertex.Center.v + 


LineTo(SELF.ToVertex.Center.h - 4, SELF.ToVertex.Center.v - 





eV . . 4); 
. ee available mney NEW LineTo(SELF.FromVertex.Center.h - 4, 
: : SELF.FromVertex.Center.v - 4); 
* Nested windows. VERSION LineTo(SELF.FromVertex.Center.h + 4, 
¢ Create and edit VGA/MCGA/EGA/Hercules fonts of any size. 2.0 SELF.FromVertex.Center.v + 4); 
CloseRgn (SELF.HotRegion) ; 
END; 
WINDOWING FUNCTIONS VGA/EGA SUPPORT 
FUNCTION Edge.Connected(Which: GraphNode): Boolean; 
* Create pop-up windows * Use all 64 VGA/EGA colors BEGIN 
* Create pull-down menus * Use VGA 29/43/50 line modes IF (SELF.FromVertex = Which) OR (SELF.ToVertex = Which) THEN 
* Create spreadsheet menus * Use EGA 43-line mode Connected. += Truc 
* Create context-sensitive help screens * Use 2 fonts simultaneously ELSE 
¢ Store windows in RAM or on disk * Design and edit custom fonts with FONTEDIT “our font Connected := False; 
* Modify windows out of view editor (included) END; 
* Use 8 different types of exploding windows ¢ Smooth scroll and pan the screen 
* Scroll and move windows FAST SCREEN 1/0 PROCEDURE Edge.SetFrom(Which: Vertex); 
BEGIN 
SYSTEM CONTROL © Write formatted output (like printf )) IF (SELF.FromVertex <> NIL) AND (SELF.ToVertex <> NIL) THEN 
+ Device-independent output * Get snow-free output on the CGA BEGIN 
* Supports VGA/MCGA/EGA/Hercules/ CGA/MDA ¢ Use direct screen writes or the BIOS { Erase old edge and redraw unlinked Vertex } 
* Detect the types of video adapter installed SELF .Erase; 
* Switch between adapters HERCULES SUPPORT SELF.FromVertex.Draw; 
* Detect ANSI.SYS * Create and edit your own Ramfonts™ END; 
* Detect the enhanced keyboard * Detect the presence of a Hercules Card SELF.FromVertex := Which; 
* Disable the video signal * Detect Ramfont™ support IF (SELF.FromVertex <> NIL) AND (SELF.ToVertex <> NIL) THEN 
* Delay program execution to microsecond resolution ¢ Load and store Ramfonts”™ to RAM or disk BEGIN 
¢ Switch between modes { Draw new edge and redraw linked Vertices } 
SELF .Draw; 
Full source code included — No run-time royalties. Includes 230 page manual — 30-day Money-Back Guarantee SELF.FromVertex.Draw; 
SELF. ToVertex.Draw; 
SELF.SetRegion; { Reset HotRegion } 
END; 
END; 
PROCEDURE Edge.SetTo (Which: Vertex); 
Only $9925 a 
PO. Box 475594 Requires: |BM PC, XTAT, PS/2 or compatible. y a stem IF (SELF.FromVertex <> NIL) AND (SELF.ToVertex <> NIL) THEN 
Garland, TX 75047-5594 Supports Microsoft C/Quick C, Borland Turbo C, Mix Power C (Texas Residents add peels Gidcducane ecdeen eee 
CALL (214) 226-6909 ey sales ta Sst erase 
SELF.ToVertex.Draw; 
END; 
SELF.ToVertex := Which; 
IF (SELF.FromVertex <> NIL) AND (SELF.ToVertex <> NIL) THEN 
BEGIN 


{ Draw new edge and redraw linked Vertices } 
SELF .Draw; 

SELF.FromVertex.Draw; 

SELF.ToVertex.Draw; 

SELF.SetRegion; { Reset HotRegion } 
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(Set the best of both worlds. ei: 


The Berkeley Utilities 


{ e=s=ss=S-S56== Graph Methods -------------- } 
PROCEDURE Graph. Initialize; 


BEGIN 
New(SELF.VertexList); 
UNIX COMMANDS FOR MS-DOS SELF.VertexList.Initialize; 
New (SELF .EdgeList) ; 
SELF .EdgeList.Initialize; 
END; 


PROCEDURE Graph.Draw; 
BEGIN 


The latest product from OPENetwork brings the 
MS-DOS world a set of UNIX tools with a twist. 


32 UNIX commands with all System V.3 and 
BSD 4.3 options plus a number of DOS- END; 
specific enhancements. 


IF SELF.EdgeList <> NIL THEN 
SELF .EdgeList.Draw; 


IF SELF.VertexList <> NIL THEN 
SELF.VertexList.Draw; 


PROCEDURE Graph.Erase; 
BEGIN 
SELF .EdgeList.Erase; 
SELF .VertexList.Erase; 


Includes awk, grep, find, make, diff, ed, sed, 


and sort. _ 
PROCEDURE Graph.AddVertex (Where: Point); 
Each utility is standalone, uses video re rer eer 
’ ’ 1 BEGIN 
attributes and has a built-in Help SCreen. { Create and initialize a new Vertex at Where } 
; : . New (NewVertex) ; 
Comprehensive manuals, including an Us calih dalal leg sda wedh 
; ; NewVertex.SetCenter (Where) ; 
introduction to UNIX for DOS users. { Add new vertex to list, typecasting is required } 
SELF.VertexList .AddNode (GraphNode (NewVertex) ) ; 
END; 


For IBM compatibles (hard disk recommended), 256K RAM, DOS 3.0 or higher. 
PROCEDURE Graph.RemoveVertex (Where: Point); 


Order The Berkeley Utilities now for $125. we 
VISA accepted 
Call our BBS for complete product information and demos. 
Brooklyn, NY 11217 


etwor K Voice: 718:638:2240 


TOOLS FOR POWER USERS pps: 718-638-2239 


WhichEdge: GraphNode; 
WhichVertex: GraphNode; 
BEGIN 
{ Find the appropriate Node } 
WhichVertex := SELF.VertexList.FindNode (Where) ; 
{ If it exists... } 
IF WhichVertex <> NIL THEN BEGIN 
REPEAT 
{ Find Edges Connected to the Vertex } 
WhichEdge := 
SELF .EdgeList.FindConnected(WhichVertex) ; 


215 Berkeley Pl. (D1) 
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A tool for 


on large s 


codan™ Code Analysis System 
The only code analysis tool 
specifically designed for large C 
systems is codan. It helps you 
navigate quickly and reliably 
through your code by creating 

a useful map to guide you. 


codan analyzes C source code 
and extracts semantics informa- 
tion, making it accessible from a 
database. Common queries are 
handled with built-in reports, or 
you can customize your own. 


With codan, your team can have 
both higher productivity and 
better quality code. It allows you 
to be thorough and consistent 
by guiding you to all the relevent 
places. Nothing slips through 
unnoticed, and you can be con- 
fident of your code. 


Understanding a Large 
System 

Who calls who? Who sets this 
variable? Where is this structure 
modified? Answers to such ques- 
tions help you understand the 
structure of your system. codan 
answers these and more. 


codan shows you the relation- 
Ships between functions, vari- 
ables, structures, fields, macros 
and files. The result: less engi- 
neering time and faster time 

to release. 


For more information, or to 
order today, call toll free: 


1-800-225-5800 ext. 216 


Wayland, Mass. 01778 
1-508-358-5858 
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White-Box QA 

@A can now include reports 

of implicit declarations, calls on 
exit procedures and other spe- 
cialized code practices. codan 
automatically generates system 
documentation such as global 
variables and file contents. 

(A reviews are more complete 
than ever. 






$395 plus $5 shipping and handling (U.S. 
and Canada license). Mass. residents please 
add 5% sales tax. If for any reason you are 
not satisfied, you may return codan within 
30 days for a purchase-price refund. 

DOS, 512K and Hard Disk Required. 


codan is a trademark of implements. 
Patent Pending. 
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OBJECT PASCAL 


Listing One (Listing continued, text begins on page 17) 


{ If an Edge exists, remove it } 
IF WhichEdge <> NIL THEN 
SELF .EdgeList .RemoveNode (WhichEdge) ; 
UNTIL (WhichEdge = NIL); 
{ Finally, remove the Vertex } 
SELF.VertexList .RemoveNode (WhichVertex) ; 


END; 
END; 
PROCEDURE Graph.AddEdge(FromWhich, ToWhich: Vertex); 
VAR 
NewEdge: Edge; 
BEGIN 
{ Create and initialize a new Vertex at Where } 
New (NewEdge) ; 
NewEdge. Initialize; 
NewEdge.SetFrom(FromWhich) ; 
NewEdge.SetTo(ToWhich) ; 
{ Add new vertex to list, typecasting is required } 
SELF .EdgeList .AddNode (GraphNode (NewEdge) ) ; 
END; 
PROCEDURE Graph.RemoveEdge (Where: Point); 
VAR 
WhichEdge: GraphNode; 
BEGIN 
{ Find the appropriate Node } 
WhichEdge := SELF.EdgeList.FindNode (Where) ; 
{ If it exists, remove it } 
IF WhichEdge <> NIL THEN 
SELF .EdgeList .RemoveNode (WhichEdge) ; 
END; 


PROCEDURE Graph.SetVertexCenter (Which: Vertex; Where: Point); 


VAR 
anEdge: Edge; 
BEGIN 
{ Move through the EdgeList finding Connected Instances} 
anEdge := Edge (SELF.EdgeList.FindConnected (GraphNode (Which) )); 
WHILE (anEdge <> NIL) DO BEGIN 
anEdge.Erase; { Erase them and move on } 
IF anEdge.Next <> NIL THEN 
anEdge := 
Edge (anEdge.Next .FindConnected (GraphNode (Which) ) ) 
ELSE 
anEdge := NIL; 
END; 
Which.SetCenter (Where); { Set the Vertex instance’s center } 
{ Move through the EdgeList finding Connected Instances} 
anEdge := Edge (SELF.EdgeList.FindConnected (GraphNode (Which) )); 
WHILE (anEdge <> NIL) DO BEGIN 
anEdge.Draw; { Draw them and their vertices; move on } 
anEdge.FromVertex.Draw; 
anEdge.ToVertex.Draw; 
IF anEdge.Next <> NIL THEN 
anEdge := 
Edge (anEdge.Next .FindConnected (GraphNode (Which) ) ) 
ELSE 
anEdge := NIL; 
END; 
END; 


PROCEDURE Graph.MoveVertex (Start: Point); 


VAR 
Displacement: Point; 
NewCenter: Point; 
WhichVertex: Vertex; 
BEGIN 
WhichVertex := Vertex (SELF.VertexList.FindNode (Start) ) ; 
{ If the vertex is moved, find the new center and 
place the Vertex and redraw affected Edges } 
IF WhichVertex <> NIL THEN 
IF DragRegion(WhichVertex.HotRegion, Start, Displacement.h, 
Displacement.v) THEN BEGIN 
NewCenter := WhichVertex.Center; 
AddPt (Displacement, NewCenter) ; 
SELF.SetVertexCenter (WhichVertex, NewCenter) ; 
END; 
END; 


PROCEDURE Graph.LinkVertices (Start: Point); 


VAR 
FirstVertex: Vertex; 
LastVertex: Vertex; 
Stop: Point; 
BEGIN 
{ Find the FromVertex } 
FirstVertex := Vertex (SELF.VertexList.FindNode (Start) ); 
IF FirstVertex <> NIL THEN BEGIN 
DragGrayLine(Start, Stop); { Drag a line around } 
{ Find the ToVertex } 
LastVertex := Vertex (SELF.VertexList.FindNode (Stop) ); 
IF (LastVertex <> NIL) AND (FirstVertex <> LastVertex) 
THEN 
SELF ..AddEdge (FirstVertex, LastVertex) ; 
END; 
END; 


PROCEDURE Graph.Free; 


BEGIN 
SELF .EdgeList.Free; 
SELF .VertexList.Free; ae 
INHERITED Free; End Listing One 
END; 
Listing Two 
Type 
Circle = Object (TObject) { The Circle class declaration } 
{ Instance Variables } 
108 


Center Point ; { The Center of the Circle } 
Radius Integer ; { The Radius of the Circle } 
{ Methods } 


{ Draw the Circle } 
{ Erase the Circle } 


Procedure Draw ; 
Procedure Erase ; 


end ; 
Procedure Circle.Draw ; 
Var 
theRect : Rect ; { Rectangular area of the Circle } 
Begin 
{ Set up the Rectangle } 
theRect.top := SELF.Center.v - SELF.Radius ; 
theRect.left := SELF.Center.h - SELF.Radius ; 
theRect.bottom := SELF.Center.v + SELF.Radius ; 
theRect.right := SELF.Cener.h + SELF.Radius ; 
FrameOval (theRect) ; { Draw it } 
End ; 
Procedure Circle.Erase ; 
Var 
theRect Rect ; { Rectangular area of the Circle } 
Begin 
{ Set up the Rectangle } 
theRect.top := SELF.Center.v - SELF.Radius ; 
theRect.left := SELF.Center.h - SELF.Radius ; 
theRect.bottom := SELF.Center.v + SELF.Radius ; 
theRect.right := SELF.Cener.h + SELF.Radius ; 
EraseOval (theRect) ; { Erase it } 
End ; 
End Listing Two 


Listing Three 


Program DrawtheCircle ; 


< Circle’s type declaration > 
Var 
aCircle : Circle ; 


< Circle’s method definitions > 


Begin 
new(aCircle) ; { Get a new instance } 
aCircle.Center.h := 50 ; { Set up instance variables } 
aCircle.Center.v := 50 ; 
aCirlce.Radius := 50 ; 
aCircle.Draw ; {Draw it and free it } 
aCircle.Free ; 

End. 


End Listing Three 


Listing Four 


Type 
Circle = Object (TObject) { The Circle class declaration } 
{ Instance Variables } 


Center : Point ; { The Center of the Circle } 
Radius Integer ; { The Radius of the Circle } 
{ Methods } 
Procedure Draw ; { Draw the Circle } 
Procedure Erase ; { Erase the Circle } 
Procedure Free ; Override ; { The Free method needs changes } 
end ; 
Procedure Circle.Draw ; 
as before 
Procedure Circle.Erase ; 
as before 
Procedure Cirlce.Free ; 
Begin 
SELF.Erase ; 
Inherited Free ; 
End ; 
End Listing Four 
Listing Five 


Type 
DrawObject = Object (TObject) { The DrawObject class declaration } 

{ Instance Variables } 

Point ; { The location of the Object } 

{ Methods } 

Procedure Draw ; 

Procedure Erase ; 

Procedure Offset (dh, dv 

Procedure Free ; Override ; 


Location 


{ Draw the Object } 
{ Erase the Object } 
Integer) ; { Offset Object by dh, dv } 
{ The Free method needs changes } 


end ; 
Circle = Object (DrawObject) { The Circle class declaration } 
{ Instance Variables } 
Radius Integer ; { The Radius of the Circle } 
{ Methods } 
Procedure Draw ; Override ; { Draw the Circle } 
Procedure Erase ; Override ; { Erase the Circle } 
end ; 


Rectangle = Object (DrawObject) { The Rectangle class declaration } 
{ Instance Variables } 


(continued on page 111) 
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CC THE LIMIT! 





MicroWay is your best source for the 
software and hardware you need to get true 32- 
bit performance from your 386. Our NDP C 
compiler takes the original C concept of writing 
lower level code with a higher level language 
to the limit by providing an inline assembly 
language interface that lets the programmer 
specify the exact register used to hold a vari 
able This feature makes It possible to use ports 
or perform interrupts or block moves inline. 
instead of through calls. The use of register 
aliased variables to control hardware reduces 
the size of critical code sequences by a factor 
of 3 to 10 and keeps the 386's pipelines full by 
eliminating costly calls. If you are interfacing 
DOS or the ROM BIOS, or writing graphics 
routines, a device driver, operating system ker 
nel, or an embedded application, you owe It to 
yourself to try NDP C-386 





386 Compllers and Tools 


NDP Fortran-386™, NDP C-386™, and NDP 
Pascal-386™ compilers generate globally op 
timized, mainframe quality code that runs on 
the 386 or 486 in protected mode under UNIX 
XENIX or Phar Lap extended DOS The com. 
pilers address 4 gigabytes of memory while 
supporting the 80287, 80387 and Weitek 
coprocessors. They all come with a library of 
over 70 device-independent graphics, key- 
boardandsoundroutines Applications can mix 
code from all three compilers and assembly 
language The DOS versions allow the user to 
write his own numeric error handiers and inter- 
face 386 real mode programs from protected 
mode The VM versions use Phar Lap's Virtual 
Memory Manager to run programs which ex- 
ceed the size of your system memory. NDP 
Fortran-386 is a full FORTRAN 77 with 
FORTRAN 66, BSD 4 2, DOD and VMS exten- 
sions. NDP C-386 is a full K&R C with both MS 
and ANSI extensions. It is 100% compatible 
with UNIX C and is substantially faster than the 
C which comes with UNIX. NDP Pascal-386 's 
a full ANSI/IEEE Pascal, with extensions from 
C and BSD 4 2 Pascal 


DOS versions (require Phar Lap Tools) $595 
VM version (requires VMM) $695 
UNIX/XENIX versions $795 
Phar Lap Development Tools $495 
Phar Lap Memory Manager (VMM) $295 


NDP Windows™ — 80 functions which create 
store. and recall menus and windows Works 
with NDP C and drives all popular graphics 
adapters Library $125, C Source $250 
NDP HOOPS™ — An NDP port of Ithaca 
Software's HOOPS, this 3D object-oriented 
graphics library, callable from NDP C, makes It 
possible to develop full-featured 386 CAD 
packages and front ends $575 
NDP Plot™ — Calcomp compatible plot pack- 
age, callable from NDP Fortran Includes 
drivers for popular plotters and printers Works 
with MDA, CGA, EGA and VGA $325 
NDP/FFT™ — The fastest running FFTs ona 
PC! 40 hand-coded routines that handle 1 and 
2 dimensional data arrays. Includes an in core 
solver that spills to disk for arrays too large to 
fit in memory NDP or 80x87 version ea. $250 
NDP to HALO ‘88 Graphics Interface — Lets 
youcall HALO '88 fromNDP compilers. $100 





Our Users Report: 


Milt Capsimolis of Ithaca Software in Ithaca, 
NY, developer of HOOPS, the highly 
regarded 3D, object-oriented graphics library, 
reports, “We ported a huge library — well 
over 100,000 lines — without a hitch, in less 
than a day! ...We also liked the 
enormous advantage it offers through Its 
support of the Weitek coprocessor.” 


Fred Ziegler of AspenTech in Cambridge, 
Mass reports, “| ported 900,000 lines of 
FORTRAN source in two weeks without a 
single problem!” AspenTech's Chemical 
Modeling System Is in use on mainframes 
worldwide and is probably the largest applica 
tion to ever run on an Intel processor 


Please call (508) 746-7341 for more information. 


NDP C++ 1s a MicroWay port of the UNIX Cr+ 
preprocessor version 1 2 It runs in protected 
mode on DOS, UNIX or XENIX. and ts ideal for 
writing numerics and graphics applications 
The product comes with an example of how to 
support complex numbers in C + + $495 


Parallel Processing 


Videoputer™ — The highest performance 
graphics card on the market Uses a T800 and 
T! 34010 in conjunction with an 80 MHz Brook- 
Tree DAC. With one meg $4495 


Monoputer ™— Includes one T800 and up to 
16 meg of RAM for parallel code development 
The four MWhetstones T800 makes this the 
ideal FORTRAN engine for cost-effective 
execution of your mainframe programs $1295 


Quadputer™ — This board for the AT or 386 
can be purchased with 1 to 4 transputers and 
1 or 4 meg of memory per transputer. Two or 
more Quadputers can be linked together to 
build networks of up to 100 or more transputers 
providing mainframe power from $1995 


Transputer Compilers and Applications 
These parallel languages are designed for use 
with either a Monoputer or Quadputer 


Logical Systems Parallel C $595 
3L Parallel C, FORTRAN, or Pascal $895 
ParaSoft EXPRESS Package — includes 


transputer communications libraries C source 
level debugger and system Performance 
Monitor $1500 
COSMOS/M — Finite element analysis Comes 
bundied with a 4 meg Quadputer Performs at 
near supercomputer speeds from $7,000 
T800/NAG™ — Features a library of 268 en- 
gineering and scientific numerical algorithms 
Callable from 3L Fortran. $2750 


387BASIC™ — Our 16-bit MS compatible 
compiler introduces numeric register vari- 
ables to produce the fastest 80x87 code on 
the market. For “floating-point and other 
complicated mathematical calculations, 
you'll appreciate the extraordinary speed with 
which 387BASIC handles these processes” 
PC Magazine 10/31/89 |. ie an ay 2 LOU 


NDP C is also the language of choice if you 
are combining C with FORTRAN or Pascal, are 
planning to use any one of four coprocessors 
that run with the 80386, or require the highest 
globally optimized code attainable. MicroWay’s 
C, FORTRAN and Pascal compilers come with 
a 70 function, device-independent graphics 
library that automatically supports 
Monochrome, Hercules, CGA, EGA, and VGA 
adapters and makes it easy to interface 
memory-mapped peripherals such as digitizers 
or serial devices such as mice We make it 
possible for you to write your own numeric 
exception handler and include examples writ- 
ten in C, FORTRAN and Pascal. Finally, our C 
is not only one of the easiest to use, but sup- 
ports two dialects: ANSI and UNIX. In fact, our 
UNIX implementation Is so close to the stand- 
ard, that our best customer has become AT&T! 


NEW! Cyrix FasMath™ 


Cyrix 83D87 FasMath™ — Fastest 80-bit Intel 
compatible processor on the market. Performs 
transcendentals up to 3 times faster than the 
80387. CX83D87-20: $745 CX83D87-25 $925 


Weitek-Based Coprocessor Boards 


mW1167™ and mW3167™ coprocessor 
boards are built at MicroWay using Weitek 
components. Each includes an 80387 socket. 





mW1167-16 $695 
mW1167-20 _— _— —.. $895 
mW1167 Microchannel-16/20 | from $995 
mW3167 Microchannel-25/33 |. from $1795 
3167-20 $995 
3167-25 $1295 
S167SS cng ck xs cent cee we dhuse $1695 
mW3167/80387 Board... $200 


intel Coprocessors and RAM 


8087... ... $84 8087-2 . $120 
80287-8 $195 80287-10 . $220 
80387-16 $330 80387-16SX $310 
80387-20 $375 80387-25 $460 
80C287A $280 80387-33 _ $550 


287Turbo-20™ This coprocessor board runs a 
specially qualified Intel CMOS 80287 at 20 
MHz regardless of the main CPUspeed $450 
RAMpak™ - one meg 32-bit memory module 
for Compaq 386 20/25 . $295 4meg $995 
Please call for our 100 and 80 ns RAM prices 


386 Your AT 


386/387Turbo-AT™ — Plugs into the 80286 
socket, allowing your IBM AT to run 32-bit 
protected mode code written for the 80386 80387 
socket included. 16 MHz. $495 25MHz $695 


Multi-User Accelerators | 


MicroWay's AT8™ and AT16™ intelligent 
serial controllers run 8 to 16 terminals unc 2r 
UNIX or XENIX without bogging down your AT, 
80386 or PS/2. AT8. $895 AT16: $1295 


12 MHz PC Accelerators 


SuperCACHE-286 12 MHz 
FastCACHE-286 12 MHz... 





$399 
$299 


World Leader in PC Numerics 


Corporate Headquarters: P.O. Box 79, Kingston, MA 02364 USA (508) 746-7341 | 
32 High St., Kingston-Upon-Thames, U.K., 01-541-5466 
USA FAX 508-746-4678 Italy 02-74.90.749 Holland 40 836455 Germany 069-75-2023 
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Object-Oriented 
Programming 
Featuring Actor 


Marty Franz 


Object-Oriented — 
sxecaccvesvectiersy 
Featuring Actor 


352 PAGES, $24.95 
ISBN 0-673-38641-4 


Object-Oriented Programming is a new 
method that promises to revolutionize 


the way computer programs are 
conceived, written, and tested. 


Featuring the object-oriented language 


Actor, this book provides basic, 
practical information on: 


* The concepts of object-oriented 


programming--and how to apply 
them 


* All aspects of the Actor language 


* Using Actor with the Microsoft 
Windows environment 


* Numerous actual working examples 


illustrate important concepts and 
techniques 


Available wherever computer books 
are sold or mail orders to: 


Scott, Foresman and Company 
Professional Books Group 
1900 East Lake Avenue 
Glenview, Illinois 60025 


Please include complete shipping 
information. Check, money order, 
Mastercard or Visa accepted. 





SCOTT, FORESMAN 
FF "FROM ACTOR TO ZEN..." 


Assembly Language 
from 


Square One: 


For the PC AT and 
Compatibles 


Jeff Duntemann 


Square One 
For the PC AT and Compatibles 


jolt Dartemann 


640 PAGES, $29.95 
ISBN 0-673-38590-6 


Truly the most readable book on 
assembly language ever published, 

this book introduces assembly language 
programming for the PC to people who 
have never programmed before in any 
language. Far from being dry, 
intimidating text, Assembly from 
Square One uses humor, illustrations, 
and vivid metaphores to explain 
essential concepts such as: 


* The nature of programming 

* The inner workings of a computer 
* Memory addressing 

* Interrupts 

* DOS services 


* Machine instructions 


The author never wavers from his 
conviction that programming is for 
everyone. Upon finishing this book, 

a person should be able to pick up any 
intermediate text on assembly language 
and continue exploring and building 
skills. 


Assembly 
Language Magic: 
Programming for the 
8088-80386 


William H. Murray III and 
Chris H Pappas 


Assembly 
Language Magic 
Programming for the 8088-40386 


William H. Murray Uff and 
Chris 4. Pappas 





640 PAGES, $29.95 
ISBN 0-673-38766-6 


This intermediate level Assembly 
language programming book for 8088- 
80386-based machines uses examples 
to help programmers learn MASM 
programming secrets and unlock the 
magic of this powerful language. Ina 
progressive, orderly manner the book 
covers fundamental programming 
topics such as: 


* Computer arithmetic and binary 
operations 


* String manipulation 
* Sorting 

* Lookup tables 

* Graphics 

* Macros 


"Most assembler books at this level are 
too pedantic, and teach by telling. 
This book shows good code in use, 
which I feel is a much stronger 
educational methodology.” 


--Jeff Duntemann 
Author, Complete Turbo Pascal 


Assembler Language Magic also 
explains programming with the 8087 
math coprocessor and interfacing 
assembler code with high-level 
languages. 


Zen 
of Assembly Language 


Volume I: Knowledge 


Michael Abrash 


of Assembly Language 


Michael Abrash Volume 1: Knowledge 


640 PAGES, $29.95 
ISBN 0-673-38602-3 


The most comprehensive treatment of 
advanced assembler programming ever 
published, this book presents an 
entirely new way of designing high- 
performance assembler programs. 
Written for programmers who want to 
become experts, this book: 


* Introduces the concept of Zen 
assembler, a way of programming 
that involves intuitive, right brained 
thinking 

* Examines the resources available 
when programming the PC 


* Probes hardware aspects that affect 
code performance 


* [llustrates topics in a complete 
animation program 


* Compares various programming 
techniques 


"This book is the sum of those higher 
level principles that help a 
programmer think in the machine's 
own terms, and those general 
principles will apply to any 
descendant of the PC architecture." 


--Jeff Duntemann 


At the end of this volume the reader 
will understand assembler code to a 
degree previously attained only by 
assembler wizards, and will have the 
tools necessary to keep building 
stronger skills. 


To Order Call: 1-800-628-4480 





Call the Scott, Foresman and Company Professional Books Group, 
(312) 729-3000 for Information and a FREE Catalog. 
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We get you 
Inside! all 
the right places... 


Software performance analysis demands the best and 

Inside! has the right credentials. Now the best gets 
even better with the addition of three powerful 
analysis modes. 


Inside! analyzes your program in real-time, 
timing each instance of a function, source 
line or arbitrary code fragment, all with 
microsecond accuracy and without source 
code modification. Utilize the following modes to know 
where to focus your optimization efforts for max- 
imum reward. 


Listing Five (Listing continued, text begins on page 17.) 





horSize : Integer ; { The Horizontal Size of the Rectangle } 

verSize : Integer ; { The Verical Size of the Rectangle } 
{ Methods } 

Procedure Draw ; Override ; { Draw the Rectangle } 

Procedure Erase ; Override ; { Erase the Rectangle } 





The DrawObject Methods 
Procedure DrawObject .Draw ; 










Procedure DrawObject .Offset (dh, dv : Integer) ; { Offset Object by dh, dv } 
Begin 










SELF.Erase ; { Erase Object at its present location } 
{ Change the location of the Object } 

SELF.Location.h := SELF.Location.h + dh ; 

SELF.Location.v := SELF.Location.v + dv ; 

SELF .Draw ; { Draw Object at its new location } 








End ; 
Procedure DrawObject.Free ; 





@ Function/procedure timing M@ Non-executed functions or 






Begin @ Call target timing source lines 
SELF.Erase ; @ Source line timing @ MS-DOS function timing 
Inherited Free ; @ Arbitrary event timing @ Overlay and assembly 






language support 





The Circle Methods 
Procedure Circle.Draw ; 
as before 
Procedure Circle.Erase ; 
as before 









B Micros FORTRA 
_ MB Logitech Modula-2 tec 


Call or write today for a free brochure and the 
latest list of Inside! products. Thousands of C, 
BASIC, FORTRAN and Modula-2 programmers 
already have the Inside! advantage working for 
them— shouldn't you? 

To Place Orders 

(800)537-5043 s]2 00 
Product Support EACH 


(508)478-0499 Satisfaction guaranteed 
Visa/Mastercard/C.O.D. Accepted 


Paradigm Systems 
P.O. Box 152 Milford, Massachusetts 01757 


Inside! is a trademark of Paradigm Systems. 





The Rectangle Methods 
Procedure Rectangle .Draw ; 







theRect : Rect ; { Rectangular area of the Circle } 







{ Set up the Rectangle } 
theRect.top := SELF.Location.v ; 
theRect.left := SELF.Location.h ; 
theRect.bottom := SELF.Location.v + SELF.verSize ; 
theRect.right := SELF.Location.h + SELF.horSize ; 
FrameRect (theRect) ; { Draw it } 







Procedure Circle.Erase ; 
Var 





theRect : Rect ; { Rectangular area of the Circle } 






Begin 





{ Set up the Rectangle } 
theRect.top := SELF.Location.v ; 
theRect.left := SELF.Location.h ; 
theRect.bottom := SELF.Location.v + SELF.verSize ; 
theRect.right := SELF.Location.h + SELF.horSize ; 
EraseRect (theRect) ; { Draw it } 


End Listings 





S/H $3.00 
Outside U.S. 
add $10.00 






Programmer 


M & T Publishing, Inc., publisher of Dr. Dobb's 
Journal seeks a contract programmer with 3-5 






FLOW CHART AND ANALYZE 






























YOUR ASSEMBLY LANGUAGE 

years experience in the following area: ance CODE 
@ SQL (preferably Gupta's SQLBase) pro- ¢ Flow Charts 

gramming experience ¢ Tree Diagrams 
@ MS-C5.1 with experience of using major ¢ Stack Sizing 

user-interface libraries * Register Analysis 
@ Familiarity with MS-DOS calls, Netbios, * CPU Timing Analysis 

Novell LAN environment a big plus » Procedural X-Reference 
@ Clipper experience a plus * 8088/87 to 80386/387 ————" 

¢ Context-Sensitive Help break_current_line 

Please send resume, references, and salary ¢ Menu/Batch/Command sige 
requirements to: line Operation i display_warning 


restore screen 
editor_warning 
insert_blank_line 
adjust_line 
join_line 
editor_warning 
adjust_line 
F delete edit_line 
editor_line_out 
edit_line_out 







¢ MASM 5.1 Compatible 





M&T Publishing, Inc. 
Attn: Human Resources, MIS 
501 Galveston Drive 
Redwood City, CA 94063 


No phone calls please. 























19855 Stevens Creek Bivd, Suite 154 
Cupertino, CA 95014 
(408) 244-6826 









VISA+>MC 30- Day Money Back Guarantee 
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Listing One (Text begins on page 28.) 


/* header file for RegularExpression class */ 


#define ANY CHAR 1 /* “A */ 
#define A CHAR 3 /* *C */ 
#define BEGIN STR 2 /* *B */ 
#define END STR 5 /* *E */ 
#define INCLUDE SET 19 /* “S */ 
#define OMIT SET 14 /* “N */ 


End Listing One 


Listing Two 
/* KEKE KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KK KK KKK 


* REGULARE.CLS: RegularExpression class file * 


KKEKKKKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK */ 


/* Class used to hold regular expressions for string 
matching. */!! 


inherit (Object, #RegularExpression, # ( 
pattern /* a pattern to match */ 

caseMatch /* nil, case doesn’t matter */ 
arrow /* used to scan strings */ 

cursor /* used to scan patterns */), 2, nil)!! 


now (RegularExpressionClass) !! 


/* Create a new RegularExpression from String s. */ 
Def new(self, s : re) 


{ re := init (new(self:Behavior)); 
re.pattern := makePattern(re, s); 
“re; 


yil 
now (RegularExpression) !! 


/* Change every occurrence of string s matching the pattern to string t. 
Does not allow recursion: searching occurs after the new string has been 
substituted. The target string t is not a pattern, just another string, 
inserted into the source string at the point of the match. Returns the 
changed source string s */ 

Def change(self, s, t : from, last, source) 

{ source := 
if caseMatch 
then asUpperCase(s) ; 


else s 
endif; 
from := 0; 
loop 
while from < size(source) 
begin last := aMatch(self, source, from); 
if last 
then s := replace(s, t, 0, size(t), from, last); 
from := from + size(t); 
else from := from + 1; 
endif; 
endLoop; 
“sg; 


pea 


/* Set case matching. Converts pattern to upper-case, too. You should 
save the old pattern if you plan on toggling case matching a lot.*/ 
Def setCaseMatch(self, c) 
{ caseMatch := ¢c; 
if caseMatch 
then pattern := asUpperCase(pattern) ; 
endif; 
“self; 
}t! 


/* Match the String s against the pattern. Calls aMatch() for each 


possible substring in the String. If caseMatch flag is set, then fold case 


to upper before doing the search. */ 
Def match(self, s) 
{ if caseMatch 
then s := asUpperCase(s); 
endif; 
do(size(s), 
{using (i) 
if aMatch(self, s, 1) 
then *%i; 
endif; 
}); 
“false; 


yt 


/* Compare string s against pattern starting at position from. Makes 
successive calls to oneMatch. Returns index of matching character, or 
nil. Remember that oneMatch() advances the arrow in the source string. */ 

Def aMatch(self, s, from : found) 


{ arrow := from; 
cursor := 0; 
found := true; 
loop 
while found cand (cursor < size(pattern) ) 
begin 
if oneMatch(self, s) 
then cursor := cursor + patternSize(self, cursor); 
else “false; 
endif; 
endLoop; 
“arrow; 


his 
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/* Match a single character passed as an argument to the set pointed to by 
the pattern cursor. Returns nil if not in the set, otherwise non-nil. */ 
Def locate(self, c | setSize, fromCurs, toCurs, found) 


{ setSize := asInt (pattern[cursor+1]); 
fromCurs := cursor + 2; 
toCurs := fromCurs + setSize; 
found := false; 
do(over(fromCurs, toCurs), 
{using (i) 
if pattern[i] = c 
then found := true; 
endif; 

})e 

“found; 


jell 


/* Match a single character in the target string against a single 
Character in the pattern. Returns nil or non-nil. Also advances arrow 
scanning target string */ 

Def oneMatch(self, s : next, c) 


{ next := -l; 
if arrow < size(s) 
then c := asInt (pattern[cursor]); 
select 
case c = ANY CHAR 
is next := 1; 
endCase; 
case c = BEGIN STR 
is 
if arrow := 0 
then next := 0; 
endif; 
endCase; 
case c = A_CHAR 
is . 
if s[arrow] = pattern[cursortl] 
then next := 1; 
endif; 
endCase; 
case c = INCLUDE SET 
is 
if locate(self, s[arrow]) 
then next := 1; 
endif; 
endCase 
case c = OMIT SET 
is 7 
if not(locate(self, s[arrow]) ) 
then next := 1; 
endif; 
endCase 
endSelect; 
else /* at end of string, check for $ */ 
if asInt(pattern[cursor]) = END STR 
then next := 0; 
endif; 
endif; 
if next >= 0 
then arrow := arrow + next; 
endif; 


“(next >= 0); 
}t! 


/* Get the pattern String from a Regular Expression. */ 
Def pattern(self) 

{ “pattern; 

but 


/* Set the pattern String in a RegularExpression. */ 
Def setPattern(self, s) 
{ pattern := s; 
“self; 
pil 


/* Initialize a RegularExpression. */ 
Def init (self) 

{ “self; 

put 


/* Return the size of the Pattern from position p. */ 
Def patternSize(self, p i c) 
{ c := asInt(pattern([p]); 
select 
case c = A_CHAR 
1S: "2 
endCase; 
case c = ANY CHAR cor c = BEGIN STR cor c = END STR 
is “1; ~ 7 7 
endCase; 
case c = 14 cor c = 19 
is “asInt (pattern[pt+1]+2) ; 
endCase; 
default “1; 
endSelect; 


yt! 


/* Return a set of characters for inclusion in a Pattern. The first and 


last characters should be [ and ]. Returns INCLUDE SET for set or OMIT SET 


for exluded set, followed by a count of the characters in the set (just a 
single character), followed by the characters themselves. */ 
Def f1illSet(self, s ‘| work, i, count, from, to) 
{ 1 := 1; 
count := 0; 
if s{i] = f 
then work := asString(asChar (OMIT SET) ); 
i:=i+41; 
else work := asString(asChar(INCLUDE_SET)); 
endif; 
work := worktasString(asChar(1)); /* holds count later */ 
loop 


Ir ot 
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Of course they need 
completely different kinds of editors. 
That's why they both use BRIEF. 


Let'’s face it. There’s no such thing as two pro- 
grammers who think alike. Or who work alike. 

Because everybody’s got their own style, their 
own habits. Their own quirky little requirements. 
As well they should. So, where are you going to 
find one editor that satisfies everyone? Simple. 
Look inside a BRIEF® box. 


It’s the right editor, right out of the box. 


What you'll find inside is an enormously power- 
ful, astonishingly easy, and highly-evolved pro- 
gram editor. One that works at blinding speed. 
And that’s loaded with features designed 
to help you be more productive. 
One guaranteed to give you 
excellent results within one 


New BRIEF 3.0 highlights 

* With our new C-like macro lan- 
guage, CBRIEF, C programmers can 
write macros on the fly and not have 
to switch between C and a different 
macro language. 

* The new source level debugger works 
with both the original BRIEF syntax and 
the new CBRIEF macro language. 

* Maximum lines per file has been increased 
to 4 billion. 

* We’ve added to and improved template editing 
and smart indenting for ADA, Cobol, BASIC, FORTRAN, 
Modula-2, Pascal, and C. 

* We've added editable, multiple keystroke macros that can 
be saved and restored. 

* You can even save and restore your window set-ups. 


Plus the features that made BRIEF famous. 
* 300-level UNDO safety net 

* Flexible windowing, unlimited quantity 

* Unlimited number of files 

* File size limited only by disk space 

* Regular expression search and replace 

* BRIEF’s LISP-like macro language 

* Toll-free tech support 











short hour of booting up the first time. 

You'll find features like automatic indenting, 
infinite windowing, and powerful regular expres- 
sion searching that goes well beyond the ordinary 


text-matching you're probably used to. 


You'll also find the features that made BRIEF 
famous. Including our near-miraculous UNDO, 
that doesn’t just un-delete your last keystroke. 

It actually reverses the effect of any command. So 


you can explore, experiment, even make gigantic 
mistakes with hideous consequences, and just 


‘““undo” them. And then continue to undo, 
backing-up through 300 steps. 


What you want is what you get. 


What you'll also find is an editor that 
delights in adapting itself to you. With 
the simple, menu-driven SETUP pro- 
gram, you can quickly customize 

indenting style, support for any of 
36 compilers, keyboard configu- 
ration, rate of keyboard auto- 
repeat, and much more. 
You can even edit BRIEF’s macros to 
suit your taste. Or write your own in a snap. 

Computer Language said that BRIEF is capable 
of ‘‘almost complete customization.” And with 
new release 3.0, BRIEF is even more powerful 
and flexible. 

For every programmer, it’s a different 
BRIEF. 

At last count, there were over 52,000 copies of 
BRIEF in the field, making life easier and work- 
ing time more productive for all kinds of 
programmers—working in all kinds of languages. 


International Distributors: England (0763) 73457 West Germany (069) 34 72 26 France 47.70.47.70 Australia (03) 663 6580 
Denmark (02) 88 72 49 Norway 03-89 22 40 Austria 1 31 70 36 Italy (02) 837.83.41 Holland (020) 668 5606 Israel 4 238757 
All product names are trademarks or registered trademarks of their respective owners. © 1989 Solution Systems 
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Programmers as different as Wayne Ratliff is from 
George Brandt. Which means there are over 
52,000 different ways of working, and BRIEF fits 
them all. 

Why not get BRIEF going to work for you? 
There’s no risk. In fact, if you’re not completely 
satisfied that BRIEF is exactly the editor you’ve 
been looking for, just return it within 30 days, and 
we'll return your money. No questions asked. 
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Listing Two (Listing continued, text begins on page 28.) 


while 1 < size(s) and s[{i] <> ‘J’ 


begin 
select 

case s[i] = ’\' 

1s work := work + asString(s[it+l]); 
i:= i+ 2; 
count := count + 1; 

endCase; 

case s[i] = ’-’ 

is from := asInt(s[i-1])+1; 


to := asInt(s[it+l])+1; 
do(over(from, to), 
{using(c) work:=work+asString(asChar(c)); 
4 
i := i+ 2; 
endCase; 
default work := work + asString(s[i]); 
1:=i+1; 
count := count + 1; 
endSelect; 
endLoop; 
work[(1] := asChar(count); 
“work; 


ae 


/* Convert a normal String into a pattern String. Note that it does not\lt\ 
set the Regular-Expression’s instance variable. */ 
Def makePattern(self, s | work, c, i, j) 
{ work := ""; 
i := 0; 
loop 
while i < size(s) 
begin c := s[{i]; 
select 
case c= /?!' , 
is work := worktasString(asChar (ANY CHAR) ); 
1:=i1+ 1; 
endCase; 
case c = '%' 
= worktasString(asChar (BEGIN STR)); 
1:=i1i+ 1; 
endCase; 
case c = /S’ 
is work := work+asString(asChar(END_STR)); 


1 gS pk de 
endCase; 
case c = ’[{’ 
is j := indexOf(s, ’]’, itl); 
work := work+fillSet (self, subString(s, i, jtl)); 
i:= jt; 
endCase; 
default work := worktasString(asChar(A_ CHAR) )t+tasString(c); 
l1:=i1+ 1; 
endSelect; 
endLoop; 
“work; 


yt! 
End Listing Two 


Listing Three 


/* KKK KKK KEK KKK KKK KKK KKK KKK KEKE KKK KKK KKK KEK KKK KKK KK KKK 


x FILTER.CLS: Filter class file * 


KREKK KKK KKK KKK KKK KEK KKK KKK KKK KKK KKK KKK KEK KKK KKK KKK x / 


/* This is a class that makes possible filter programs, 

like Listers, Greps, etc. in and out are objects that 
respond to Stream or File protocols. initBlock, processBlock, 
and closeBlock are executed when the filter is started, 
running, and done, respectively. */!! 


inherit (Object, #Filter, #(inObj 
outObj 

initBlock 

processBlock 

closeBlock 

), 2, nil)!! 


now(FilterClass) !! 


/* Create a new Filter. */ 

Def new(self, input, output, bl, b2, b3 : f) 

{ f := init (new(self:Behavior), input, output, bl, b2, b3); 
“fs 

pil 


now(Filter) !! 


/* Once a filter has been set up, run it. Call initBlock to 
initialize anything other than opening inObj and outOb}. 
Read a line from inObj and call processBlock. When done, 
close both objects. Note that outObj is optional. Also 
not the outObj is the receiver of the blocks. This is because 
it’s the object that’s programmer-defined. */ 

Def run(self | str) 

{ eval(initBlock, outObj, ‘£hObj); 

open(inObj, 0); 

checkError (inOb}) ; 

if outObj 

then create (outOb}) ; 
checkError (outOb}) ; 


endif; 

loop 

while str := readLine(inObj) 

begin eval(processBlock, outObj, str); 
endLoop; 


eval (closeBlock, outObj, inObj); 
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close (inOb}) ; 
if outObj 
then close (outOb}) ; 
endif; 
}1! 
/* Initialize a new Filter. Fill-in all its instance 
variables. */ 
Def init(self, input, output, bl, b2, b3) 
{ inObj := input; 
outObj := output; 
initBlock := bl; 
processBlock := b2; 
closeBlock := b3; 
“self; 


}tl 
End Listing Three 


Listing Four 


/* KREKKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KE KKKK KKK KEK 


is GREP.CLS: Grep class file x 


KKK KKKKK KK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKEK */ 


/* This is a class that holds a single method that will analyze 
a file for regular expressions. This method is an example of a 
generic Filter, too. */!! 


inherit (Object, #Grep, #(fileName 
pattern 
matches), 2, nil)!! 


now(GrepClass) !! 


/* Create and run Grep for a file and a pattern. */ 
Def run(self, file, expr : g) 
{ g := init (new(self:Behavior), file, expr); 


A 


BY 


Gr 


now(Grep) !! 


/* The Filter will try to close us. 
safe happens. */ 

Def close(self) 

{ *self; 

}i! 


Make sure something 


/* We need a checkError message because the Filter will try to 


call one. For a Grep this doesn’t do anything. */ 
Def checkError(self) 
{ “self; 


ae 


/* AR dummy method, needed because the Filter will try to 
create() a Grep object with a mode value. Ours doesn’t do 


anything. If it were a real file, it would be created. */ 
Def create(self) 
{ “self; 


Hi! 


/* When done, print the number of matches that were found. */ 

Def finish(self, inFile) 

{ printLine(asStringRadix(matches, 10)+" lines matched pattern."); 
“self; 

hl! 


/* Process a single line. Compare it against the pattern. 
If it matches, print it. */ 
Def process(self, s) 
{ 1£ match(pattern, s) 
then printLine(s); 
matches := matches + 1; 


/* Start grep. 


Def start(self, inFile) 
{ setName(inFile, fileName) ; 


Assign the filename to the TextFile */ 


printLine(""); 
printLine("Searching file: "+fileName) ; 
“self; 


pis 


/* Open the input text file and search it for the expression. 
If found, print it. */ 
Def init(self, file, expr | f, start, process, finish, 
input, output) 


{ input := new(TextFile); 
setDelimiter (input, CR_LF); 
output := self; 
pattern := new(RegularExpression, expr); 
fileName := file; 
matches := 0; 
Start := 


{using(me, inFile) start(me, inFile); 

he 

process := 

{using(me, theLine) process(me, theLine) ; 
bi 

finish := 

{using(me, inFile) finish(me, inFile); 

ie 

f := new(Filter, input, output, start, process, finish); 
run(f); 

“self; 


- End Listing Four 
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Listing Five 


/* KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KA KKK KK 


7 REVISER.CLS: Reviser class file * 


KKK KK KEK KKK KK KKK KKK KKK KKK KEK KKK KKK KKK KKK KKK KK KKK x / 


/* A Reviser is like a Grep, but it takes an additional 
instance variable: the new text to be revised when the 
pattern is found. Another filename is also required, 
to hold the revised text. Finally, there is a handle 
for the new file. */!! 


inherit (Grep, #Reviser, #(newText 
newFileName 
newFile), 2, nil)!! 
now (ReviserClass) !! 


/* Create and run a Reviser. */ 

Def run(self, file, outFile, expr, text | r) 

{ r := init (new(self:Behavior), file, outFile, expr, text); 
eh ae 


}ll 
now(Reviser) !! 


/* Initialize what’s different about the Reviser from 
the Grep. */ 

Def init(self, file, outFile, expr, text) 

{ newText := text; 
newFileName := outFile; 
“init (self:Grep, file, expr); 

pt! 


/* Process a single line. Compare it against the pattern. If it matches, 
change it. For simplicity, this does not handle multiple substitutions in 
the same line. */ 

Def process(self, s) 

{ 1£ match(pattern, s) 
then write(newFile, change(pattern, s, newText) + CR_LF); 

matches := matches + 1; 
endif; 
“self; 
AM! 


/* Set the name for the input file, then do whatever else 
a Grep does. */ 
Def start(self, inFile) 
{ newFile := new(TextFile); 
setName (newFile, newFileName) ; 
setDelimiter(newFile, CR_LF); 
“start (self:Grep, inFile); 
pt! 
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/* Do a checkError on the newFile after creation. */ 
Def checkError (self) 
{ *“checkError(newFile); 
}t! 
/* Create the new file. */ 
Def create(self) 
{ create (newFile); 

“self; 
}t! 
/* Close the new file */ 
Def close(self) 


{ close (newFile); 
“self; 


gue. 


End Listings 
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C++ PARSER 


Listing One(Text begins on page 40.) 
/* TOKENS. */ 


<error> 
<identifier> => KW SEARCH 
<operator> => OP SEARCH 
<punctuator> => OP SEARCH 
<number> 

<string> 

<eof> 

<type> 


/* KEYWORDS. */ 


auto break case cdecl char class const continue default delete do 
double else enum extern far float for friend goto huge if inline int 
interrupt long near new operator overload pascal private protected 
public register return short signed sizeof static struct switch this 
typedef union unsigned virtual void volatile while 


/* OPERATORS. */ 


11 && 

< <= == > S= 

+2 * fs 

? ++ -- '->! 

! ~ A 14% & >> << 

= <<= I= $= §= *= t= -= /= |= >= “%= 


/* PUNCTUATORS. */ 

Cee. p. gare ER a) 
/* NONTERMINALS. */ 
Input -> File and tell <eof> 


File and tell => File => AllDoneNow 1 /* normal completion */ 


File -> Item : File Item 


Item -> Declaration 
/* or Definition. not in yet. */ 


[KKK IK KK IK RIK KK KKK KKK KKK KK KK KKK KKK KKK KKK KKK KK KR KKK KKK KKK KKK 


To recognize a declaration, the storage class and type appear 
once. They are remembered. Each declaration is seperated by 
commas, and share the same type. The FinishedDeclarator calls 


an action for each one found. 
ROKK KKK KKK OK / 


Declaration 
-> StorageClass Type w/const Declarators ; 


Declarators 
-> FinishedDeclarator 
-> FinishedDeclarator , Declarators 


FinishedDeclarator -> Declarator Initializer? => Declaration 1 


[RRR KR KK KKK KKK I IKK IK / 


Initializer? 
-> 
-> = Expression 
=> { Expression-List } 


Expression-List 
-> Expression 
-> Expression Expression-List 


StorageClass 
-> => StoreStorage 0 
=> static => StoreStorage 1 
-> extern => StoreStorage 2 
-> typedef => StoreStorage 3 
-> auto => StoreStorage 4 
-> register => StoreStorage 5 


Type w/const /* const may appear before or after the type name */ 
-> Const/Volatile? Type Const/Volatile? => StoreBaseConstVol 


Tag 
-> <identifier> => StoreTag 1 
-> <type> => StoreTag 2 
Class 
=> SETUCU 
-> class 
OverloadableOp -> * : / | =: + /* and all the others */ 


Elipses? -> : ’...’ 


/* Declarations */ 


Declarator 
-> Decl2 
-> ReachAttribute * Const/Volatile? Declarator => TypeModifier 3 
-> ReachAttribute & Const/Volatile? Declarator => TypeModifier 4 
Decl2 


-> Decl2 ( Arg-Declaration-List ) 
-> Decl2 [ ConstExp? ] 
-> Decl3 


=> TypeModifier 1 
=> TypeModifier 2 


-> Dname => Dname 1 
-> ( Declarator ) 


Const/Volatile? /* const or volotile, neither, or both */ 


-> => ConstVol 0 

-> const => ConstVol 1 

-> volatile => ConstVol 2 

-> const volatile => ConstVol 3 

-> volatile const => ConstVol 3 
ReachAttribute 

-> => ReachType 0 

-> near => ReachType 4 

-> far => ReachType 8 
Dname 

-> SimpleDname 

-> <type> :: SimpleDname 
SimpleDname 

-> <identifier> 

-> <type> 

-> ~ <type> 


-> Operator-FunctionName 


Operator-FunctionName 
-> operator OverloadableOp /* overload operator */ 
-> operator <type> /* conversion operator */ 
/* this should really allow any abstract type definition, not just 
a simple type name. I’11 change it later */ 
-> operator <identifier> /* ERROR production */ 


/* Argument list for function declarations */ 


Arg-Declaration-List 
-> Start-Nested-Type A-Decl-List? Elipses? End-Nested-Type 


Start-Nested-Type -> => NestedType 1 
End-Nested-Type -> => NestedType 0 


A-Decl-List? 
-> 
-> A-Decl-List 


A-Decl-List 
-> A-Decl-List , Argument-Declaration 
-> Argument-Declaration 


Argument-Declaration 
-> StorageClass Type w/const Declarator => Declaration 2 


/* Expressions */ 


ConstExp? 
-> 
-> ConstExp 


ConstExp -> Expression /* semantics will check */ 


Expression 
/* stub out for now */ 
-> <identifier> 
-> <number> 
-> <string> 


Type 
-> char => StoreType 1 
-> signed char => StoreType 2 
-> unsigned char => StoreType 3 
-> int => StoreType 4 
-> short => StoreType 4 
-> short int => StoreType 4 
-> signed int => StoreType 4 
-> signed short => StoreType 4 


End Listing One 


=> StoreType 4 
=> StoreType 5 


-> signed short int 
-> unsigned 


-> unsigned int => StoreType 5 
-> unsigned short => StoreType 5 
-> unsigned short int => StoreType 5 
-> long => StoreType 6 
-> signed long => StoreType 6 
-> unsigned long => StoreType 7 
-> float => StoreType 8 
-> double => StoreType 9 
-> long double => StoreType 10 
-> void => StoreType 11 
-> enum Tag => StoreType 12 
-> Class Tag => StoreType 13 


-> union Tag => StoreType 14 


Listing Two 
File: NODE.HPP 


// the node class is central to date representation. 
// Everything it knows is in a node. 


enum node flavor { //state the derived type from a node 
nf_base, nf type, nf_def 


hi 


class node { 
protected: 


(continued on page 118) 
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Support 


epsi lon has what 
programmer's 


you ve been missing. . . 


Epsilon doesn’t implement its features halfway. When we came out 
with Undo, we remembered Redo. Our extension language doesn’t just 


























B Y T E 
W A RD OF 


A 
DISTINCTION 


epsilon 


Complete Undo AND Redo! Any sequence of edits you 
make can be undone, one at a time, with the Undo key. 
You can even undo your undo’s with the Redo key. That’s 
very important: it lets you casually use the Undo facility. 


Our extension language, EEL, gives you the syntax of C 
and a rich set of data types. All commands are written 
in EEL, and you get source code to all of them. Best of 
all, EEL is fast! 


When you run another program inside Epsilon, it can first 
shrink to 10K, then run your program. You see your 
compiler run, see the error messages, etc. You can even 
give the program input. And when your program finishes, 
you're put back into the editor, and a complete 
input/output typescript is there in an Epsilon buffer! 


Run utilities, compilers, even the DOS command 
processor concurrently, while you continue to edit. 
If your program is very large, you can use Compiler 
Journaling. 


Epsilon makes extensive use of EMS memory, if you have 
it. It uses EMS both to store what you're editing, and to 
Store itself when you swap Epsilon out with a keystroke. 





borrow a few keywords from C, it has C’s syntax and expressiveness. 
Maybe that’s why Epsilon won a BYTE Award of Distinction. 
Compare Epsilon to your editor, and see what you're missing. . . 


Brief 


Its “Complete Undo” does not let you 
redo. So be careful with that Undo key, 
because It’s irreversible. Once you undo 
something, it’s gone forever! 


Its “macro” language has a very limited set 
of data structures (unlike C or EEL). Most 
of Briefs standard commands were not 
written in its macro language. Why not? 


It can shrink and run your program, but it 
uses Command line redirection to gather the 
output of your program. This means that you 
COMPILE BLIND! If there are many error 
messages, you wait until the compiler finally 
exits to see ANY of them! 


It has no comparable multitasking facility. 


It will use EMS memory only to swap itself 
out, not to store your buffers. So, you’re 
more cramped for memory than you should be. 





Trademarks: “Epsilon” and “Lugaru” are trademarks of Lugaru Software Ltd. “Brief” is a trademark of Underware, Inc. 
Information on Brief is from the manual and conversations with their technical support staff. Versions: Epsilon 4.0, Brief 3.0. 


Epsilon is available for DOS, OS/2, Xenix & 386/ix. Here’s a partial list of features: 


C-like extension language, called EEL 
Source code to all commands 

Convenient multilevel undo plus total redo 
Scans compiler errors (customizable) 
Swaps out of memory for big compilers 
Unlimited file size, number of files 


Do interrupts from EEL (DOS) 


Saves deleted text (n times) 


On-line tutorial for quick startup 


As many windows as will fit on the screen 
Supports large displays (like VGA & EGA) 
Context sensitive help autoconfigures 

Tags package indexes subroutine definitions 
Files can be larger than available memory 
Fully utilizes EMS memory 

Interactively customizable keyboard 
EMACS-style command set 

Record keystroke sequences 


$195 


direct 


Orders & Info: (412) 421-5911 
FAX: 412.421.6371 


Source level debugger & profiler for EEL 
Call any dynamic-link library for EEL (OS/2) 


Navigate through your directory structure 
Not copy protected, for your convenience 


Multitasks compilers, even under DOS 
Language support (C, Lisp, etc.) 

Completion on file names, commands, tags, ... 
Full command line editing 

Optional backups 

Regular expression search and tagged replace 


Ask about our free trial! 
60-day money-back 


guarantee! 





Lugaru Software Ltd. / 5843 Forbes Avenue / Pittsburgh, PA 15217 
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TLIB” is FASTEST! 


1:03 














RCS" 4.2 PVCS" TLIB™ 3.0 


Times are to update a 45K library on a PC/XT. PVCS and TLIB 3.0 are 
from Sept 87 PC Tech Journal. MKS RCS 4.2 and TLIB 4.12 are newer. 


The Experts’ Choice! 


“TLIB is a great system” Jim Vallino, PC Tech Journal 


“Tf you've been putting off getting a revision control system, 
you no longer have an excuse” D. Deloria, The C Users Journal 


“my highest recommendation” R. Richardson, Computer Shopper 


After reviewing 5 products for Computer Language magazine, 
author John Rex chose TLIB for his own use. He wrote, “Do not be 
fooled by the fact that this is the least expensive of the five 
packages reviewed here - TLIB has features and power to spare.” 


e Full-Featured Version Control for Software Professionals 
Check-in/out locking. Branching, for parallel development. Keywords. 
Full binary file support (does not depend upon CRs in the file like some 
products). Wildcard and list-of-file support; can create lists by scanning 
source code for includes. Can merge (reconcile) multiple simultaneous 
changes and undo intermediate revisions. Network and WORM optical 
disk support. Mainframe-compatible delta generator for Pansophic, 
ADR, IBM, Sperry formats. Includes integrated PD MAKE by L. Dyer; 
also integrated with Opus™ MAKE 5.2 and Antares” MAKE++. 


MS-DOS 2.x, 3.x, 4.x Just $99.95 + $5 s/h visaimc 
5 station LAN license $299.95 + $5 s/h, call for other sizes 


BURTON SYSTEMS SOFTWARE 
PO Box 4156, Cary, NC 27519 (919) 856-0475 
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“Hypertext Source Code 
Databank for Programmers 


Explore source code! Navigate uncharted logic trails easily! 


4c includes: 
A Source Code Analyzer; 


The analyzer maps and cross-references 
functions and variables to their respec- 
tive path and file names. The cross- 
reference table can be displayed alpha- 
betically and by type of variable. It allows 
a programmer to edit functions directly 
without specifying a file name. 


A Point-and-Shoot Zoom Key; 
Which instantly locates any function, 
global variable, structure definition, 
#define statement, or macro, etc., in any 
file, directory, and drive, and displays it 
in a new edit window. 


A Full Featured Built in Editor: 


Featuring multiple files, multiple win- 
dows, cut-and-paste between files, search- 
and-replace, auto indent, tab support, 
and a familiar user interface with pull- 
down menus, or use your own editor! 

















|"Given a procedure's identifier, an editor should be 
able to bring up the full procedure interface, including 
‘parameters, so that you don't have to remember how 
|many and in what order. Wouldn't it be nice to hit a 
hot key on the name of a complicated data type and 
have its definition pop up in a window? It may seem 
‘like a real small matter, but how many of you stall flip 
through printouts doing things the editor should be 
dving?" 















* 
















(+ Phillipe Kahn, "The Connection", Spring/Summer 
1988 






4 C does this and more 


""4c's Magic is apparent..." 
- PC Magazine, February 1989 








"Daylight in the C Confusion" 
- Toolbox magazine, December 1988 






"...Destined to become the standard editor for C..." 
- Computer Personlich magazine, October 1988 
mscisrc 4c\JCED4 C 










4— begamark 














#maskarca; 







3— deletbhlk — \msc\ybyh int px; 
int drivecd; 
oe struct EDLIST *begamark; 









EDLIST *endamark;: 
int fh; 

Ibiname|20}: 

int curcat; 






/* file handle 
/* object name 
/* cat of current 









switch (cep-> keyhit) 












word[40]; /* display work 











Ret: if ((p->begmark=—O)\a& 
{ 





















case f9: fOkey; 

case 10: flOkey; if (pessavanow) { 

case AltC: cutclip{); cwp->cur_c cwdecwp->c_pos#0; 

case AltO: copyclip(Oy.break savanow=NULL;} For C and Pascal 
case AltP: cep->anowe=p; SS ———————————————————— 
case AltD: del lne{); 






No copy protection! 
Free technical assistance! 
No changes to source code required! 
Required IBM PC compatible with 350K RAM. 
Ta Technology. Systems inc. 30 Day Money Back Guarantee! 
1225 S. Elgin, Forest Park, 01. 60130 Only $119.00 plus shipping 


Phone: 312-366-7595 Visa, Mastercard, check, money order, or COD. 


AItE: ) 
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C++ PARSER 





Listing Two (Listing continued, text begins on page 40.) 


node (); 

virtual ~node(); 
public: 

node flavor flavor; 

virtual void print(); 


}; 


enum primary t { type void, type_char, type_int, type_long, type_float, 
type double, type _ldouble, type enum, type class, type_union, 
type pointer, type reference, type array, type function }; 


class def node list; //forward ref 


class type node : public node { 
public: 
type _node* to what; 
type node (); 
“type_node (); 
void print (); 
unsigned flags; 
primary t primary; 
node* secondary() { return to what; } 
atom tag; 
def node list* aggr; 
void stuff primary (int x, atom tagname); 
bool isConst() { return flagsé&l; } 
bool isVol() { return flags&2; } 
bool isNear() { return flags&4; } 
bool isFar() { return flags&8; } 
bool isUnsigned() { return flags&16; } 
be 
class def_node : public node { 
public: 
atom name; 
int storage _class; 
type _node* type; 
void print (); 
def node (atom n, int store, type _node* t); 
be 


T® /\I\I\/N\ININININ\INVINININV\INININVININININI\N * 
/* lists of nodes */ 
J® /\/\IN\IN\ININ\INVINININVINININVINININININININ 1 


class node list { 
node** list; 
int capacity; 
int count; 


public: 
node list (); 
“node list() { delete list; } 


node** access (int x); 

int size() { return count; } 

void add(node* n) { *access(count+t+) = n; } 

}; 
#define create list(TYPE) class TYPE## node list : public node list { \ 
public: \ 
TYPE## node*& operator[] (int x) { return *(TYPE## node **)access(x); } } 
create list (type); 
create list (def); 


End Listing Two 


Listing Three 


[ROR IR KR KK RK I IK TRI I IKK IKI I KOK IK RK 


File: ACTIONS.CPP Copyright 1989 by John M. Dlugosz 


the Actions called from the parser 
III II RK ICR / 


"usual.hpp" 
<stream.hpp> 
"atom. hpp" 
"node.hpp" 
"define.hpp" 


#include 
#include 
#include 
#include 
#include 


// #define SHORT return 0 

/* short out actions for testing parser only. 
if something suddenly goes wrong, I can stub 
out all the actions to make sure I’m not walking 
on data somewhere. */ 

#define SHORT 


// the normal case. 
L*® /\/\I\IN\INV\IN\I\N\INV/N\IN\INVININV\INVININ\INVININAN 1 
static char last _token[81]; 


void get_last_token() 

{ 

/* copy last token from scanner into a nul-terminated string */ 
int len= 80; //maximum sig. length 

extern char *T beg, *T_end; //from the scanner 

char* source= T_ beg; 

char* dest= last_token; 


"<< T end; 


//cout << (unsigned)T beg << " - 
cout .put (T_beg[x]); 


f/tor. (int. x=-07 x < Se \x4*) 
while (len-- && source < T end) *dest++ = *source+t; 
*dest= '\0'; 

} 


mA AAV AV ATA TAC OT ATO Ta ATA ARTA AV AC AYA Ma’, 
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/* in a declaration, a storage class is the first thing I get. This starts 
it off. Then a ConstVol, a StoreType, and a second ConstVol. The const 


or volatile keyword may appear before or after the type, with equal 
effect. The two bits are ORed together for the final result. 
After this, I get one or more calls to Declaration. 

af | 


my AVA AT AVAVAVATAVAT OU AU AVATAVATAV ATA AVA 7: 


// the type I’m building 
struct working type { 
type_node* this type; //the tail 
type _node* root type; //the head 
int base type; 
atom tag name; // if base type has a name 
atom name; //The name of the thing being declared 
int storage class; 
int const_vol; 
working type* next; 
} MainType; 


working type* Tx= &MainType; 


/* this is accessed through a pointer because a declarator can be encounted 


while parsing another declarator. This lets me stack them. */ 
ba ATAv ART AC Ave AVA a AT AVATATA AYA AC a mar, 


static int const_vol_stack[50]; 
Static int const_vol_ stacktop= 0; 


PE INDININAEDN DADA NININININININGS. 41 


int Declaration (int x,...) 
{ 
/* values for x: 1- global or local def. 
2- parameters 
3= struct/union list 
* 
/ 
SHORT; 
/* This finishes it off. A complete declaration has been found. */ 
Tx->this_type->stuff primary (Tx->base type, Tx->tag_name); 
Tx->this type->flags i= Tx->const_vol; 
// build the ‘thing’ from the type_node and the name. 
Store thing (Tx->root_type, Tx->name, Tx->storage class, x); 
// Tx->root_type->print (); 
// cout.put(’\n'); 
return 0; 


} 
em AV AV AV AVR AVA ABU AUR AU AY AY AUVAY AAV AT A Mull 


int StoreBaseConstVol (int x,...) 
{ 


SHORT; 

// the first two calls to ConstVol apply here. 
Tx->const vol = const vol stack[--const_vol_stacktop]; 
Tx->const_vol ‘!= const_vol_stack[--const_vol_stacktop]; 
return 0;_ _ 


} 
ae A AV AVAVATAVACAV AVA aU av AVAVATAVATAUAT ams) 


int StoreType (int x,...) 
{ 

SHORT; 

Tx->base type= x; 

return 0; 


} 
Ame ATAU ATAVAVAC UAC AT AT AV ATAU AYO AU AV AT Aye wz) 


int StoreTag (int x,...) 

{ 

SHORT; 

/* called when a struct, union, or enum is parsed. The tag is the last 
token read. After this call, the StoreType call is made with ‘union’ 
or whatever. */ 

get_last_token(); 

Tx->tag_name= atoms[last_token]; 

return 0; 


} 
fame AUDA ATAU AT AT AV ACA a VACA AV AT AVe hy a us| 


int StoreStorage (int x,...) 

{ 

SHORT; 

/* this is the first thing called */ 
Tx->storage class= x; 

return 0; 


} 
lame ORT AVAVATAVAVATAVAVAVAT AYO VA AVA T AU AVA Gal 


int Dname (int x,...) 


{ 


SHORT; 
/* if x==1, the last token is the name of a thing being declared. If 
x==0, there is no name and this is an abstact declarator. Either 


way, build a type node and store the name. This overwrites the type 
node, as it will be the first thing called. */ 


if (x) { 
get_last_token(); 
Tx->name= atoms[last_token]; 


(continued on page 120) 
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Future 


With 


C++ 


Training 


Courses 
Object-oriented Programming Using C++ 
Object-oriented Design 
Advanced C++ and Design Techniques 
Object-oriented Programming for Managers 
C Programming 
Advanced C and Data Structures 
X Windows 
Unix Courses 
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C++ PARSER 


Listing Three (Listing continued, text begins on page 40 ) 


} 
Tx->this type= new type node; 
Tx->root_type= Tx->this_type; 
return 0; 


} 
ome DV AVAUAVAVAV EVA AT AV AT AVAvat Atala a a) a mu! 


int TypeModifier (int x,...) 
{ 
SHORT; 
/* 1 t() Zt] 3 *t 4 &t *} 
switch (x) { 
case l: 
Tx->this_type->primary= type function; 
// attach parameter list 
Tx->this_type->aggr= completed_def_list; 
break; 
case 2: 
Tx->this_ type->primary= type array; 
// >> attach size 
break; 
case 3: 
Tx->this_ type->primary= type pointer; 
Tx->this_type->flags := const_vol_stack[--const_vol_stacktop]; 
break; 
case 4: 
Tx->this_ type->primary= type reference; 
Tx->this type->flags := const_vol_stack[--const_vol_stacktop]; 
break; 
} 
Tx->this type->to_what= new type node; 
Tx->this type= Tx->this_type->to_what; 


return 0; 


} 
Z* /N\IN\IN\INININININININININININININININININ 7 


int ConstVol (int x,...) 

{ 

SHORT; 

/* l-const 2-volatile 3-both */ 
const_vol_stack[const_vol_stacktopt+]= x; 
return 0; 


} 
Em Av AVeT AV AVATAV AAV AT av Ava Areva ae aCe mad) 


int ReachType (int x,...) 
{ 

SHORT; . 

/* 0-default 
return 0; 


} 
iam ATA RTA AU AT AUAVA OVA a eta Ava a alata mae 


l-near 2-far */ 


int NestedType (int x, ...) 
{ 


SHORT; 
working type* p; 
if (x) { //start nesting 


p= new working type; 
p->next= Tx; 
TX= p; 
} 
else { //restore old type 
p= Tx; 
Tx= Tx->next; 
delete p; 
} 
parameter list (x); 
return 0; 


} 


ome ARVANA TAY AVA AVAVAVATAVAVAVATAVA AR ao Wu! 
uae AAU AV AV AVAVAV AV AVA A AT AVA BUA a alae mul 
LF LEILA EEL EET PD EOL TN 


//pass on to DEFINE module 


int AllDoneNow (int x, ...) 

{ 

SHORT; 

cout << "parser complete. \n"; 


for (int loop= 0; loop < global stuff.size(); loopt+) { 
global _stuff[loop]->print(); 
cout.put (’\n’); 
} 
return 0; 
} 
End Listing Three 


Listing Four 


[RRR RRR KKK KKK RRR KR KKK RRR KEK KKK K KK KKK KKK KKK KKK KK KKK KK 


File: ATOM.CPP Copyright 1989 by John M. Dlugosz 


store strings 
ROKK RIK III II KOK / 


#include "usual.hpp" 
#include "atom.hpp" 


extern "C" void* malloc (unsigned size); 


extern "C" void free (void*); 
extern "C" void* realloc (void*, unsigned) ; 


120 


atom_storage atoms(16); 
T® /N\INININININININININININININININININININ *7 


atom_storage::atom_storage (int size) 

{ 

count= 0; 

capacity= size; 

list= (char**) malloc (size * sizeof (char*)); 


} 
1® LNINININININININININININININININININININ 7 


atom_storage:: atom_storage() 
{ 

free (list); 

} 


FE INININININESINESINTNINTNTNENENENEN ENE 47 


extern "C" int strcmp (char*,char*) ; 
extern "C" char* strdup(char*) ; 


atom atom_storage::operator[] (char* s) 

{ 

for (int loop= 0; loop < count; loopt+) { 
if (!strcemp(s, list[loop])) return loop; 
} 

if (count == capacity) { 
capacity += capacity/2; 
list= (char**) realloc(list, capacity*sizeof (char*) ); 
} 

list [{count]= strdup(s); 

return countt+t; 


} 


//found it 


// make it bigger 


End Listing Four 


Listing Five 
FILE: ATOM.HPP 


typedef int atom; 


class atom_storage { 
char** list; 
int count; 
int capacity; 
public: 
atom_storage(int size); 
“atom _storage(); 
char* operator[] (atom x) { return list[x]; } 
atom operator[] (char*); 


}; 


extern atom storage atoms; 


End Listing Five 


Listing Six 


[RR KK KK I IK I KK KI KK KR KR KK RK KKK KKK KK KKK KEK KKK 


File: DEFINE.CPP Copyright 1989 by John M. Dlugosz 


deal with definitions once they are parsed 
ROK I I IR RRR IORI IOI IK / 


#include "usual.hpp" 
#include <stream.hpp> 


#include "atom.hpp" 
#include "node.hpp" 
#include "define.hpp" 


bool local _level= FALSE; 


def_node_list global stuff; 

struct p list struct { 
def node -list* 1; 
p_list_struct* next; 
bi 

static p list struct *p list; 

def node list* completed def list; 


amr RATATAT ATA AVAV eV ATA ev ATACAV AAV AVA AM: 


void store thing (type _node* t, atom name, int storage class, int param) 

= 

/* ‘param’ is passed through from the grammar. If 1, this is a declaration 
for a local or global object. If 2, this is part of a parameter list */ 

def_node* n= new def node (name, storage class, t); 


// file it away somewhere 
Switch (param) { 
case l: 


(continued on page 122) 
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and Free 
PRO-C Work Bench 





“Mary had a 4GL 
whose performance 
was very slow 

and everywhere 
that Mary went 

the run-times 

had to go.” 





. Source Code “Applications Generator 


‘( Accelerate 
~ Your Productivity 


Pro-C gives you the greatest gift in the computer world — time. You get high quality, 
fully commented, error free C source code in a fraction of the time it would take to 
write it by hand. 


Pro-C has always saved you time and that saved you money. Now you save even 
more. Vestronix has dropped the price of Pro-C from $675 US to $399.00! And Pro-C 
Work Bench, the C source code libraries that let you quickly customize your 
application, is absolutely FREE! A great program at great savings. 


Pro-C will increase your ability to create programs quickly by generating the source 
code for menus, reports, screens, windows, and multi-file batch updates. Textbook 
quality C code is written by us, while the elegant system solutions and exciting new 
algorithms are created by you. 


Pro-C looks and feels like a 4GL, but it’s not. You can do prototyping, layout, design 
and generation of applications without learning a proprietary language, needing 
massive amounts of memory, or ending up with slow running programs. Best of all 
Pro-C doesn't require any run-time licenses. Finally, a company that treats you like 
royalty instead of forcing you to pay them. 


Pro-C — the programming partner that does the boring, repetitive coding without 
complaint, pays for itself every time you use it, and doesn't argue with your obviously 
brilliant program designs. 


With PRO-C, everybody’s a winner. 
CIRCLE NO. 104 ON READER SERVICE CARD 


Order yours to-day. Call 1-800-265-2682 ») VESTRONIX 


Ca++ IPARSER 


Listing Six (Listing continued, text begins on page 40.) 


— Dr. Dobh’s journal 


// >> I need to get a standard error reporter Subscription 


cout << "abstract declarator ignored\n"; 


siepci zeae add (n); Problems? 


break; 
case 2: 
// >> check it over 


oo No Problem! 


} 
} 


Le LEE EE OE DOLE ET EON 
void parameter list (int x) 


p [ist struct* p; 

if (x) { 
p= new p list struct; 
p->next= p list; 
p->l= new def node list; 


ae Give us a call and we'll straighten it 
}- out. Today. 

else { 

p= p_list; 

ee. Inside United States 

delete p; CALL TOLL FREE: 800-456-1215 


Inside Canada 


Rid Listings CALL: 303-447-9330 


Objectively Speaking, The Best in OOP Books 


Object-Oriented Object-Oriented bject-Oriented 
Program Design Programming in Turbo Programming for Artificial 
With Examples in C++ Pascal 5.5 Intelligence 

This concise and well-written guide by Written by Ben Ezzell, this book is just A Guide to Tools and System Design 


Mark Mullin focuses on one of the what upgrading Turbo Pascal® pro- Author Ernest R. Tello reveals the tre- 
most vital issues in object-oriented grammers need to fully understand the mendous implications OOP holds for 
programming. The book gives pro- new OOP features of Turbo Pascal 5.5. artificial intelligence. The book 
grammers a firm understanding of the 0-201-52375-2 $22.95. introduces both OOP and AI, examines 
underlying principles of OOP design, Mail order disks are also available. the various OOP languages, and 

where the true power of object-oriented 0-201-52411-2 (5 1/4") $19.95. describes programming techniques. 


programming is realized. 0-201-52413-9 (3 1/2") $19.95. 0-201-09228-X $22.95. 
0-201-51722-1 $19.95. 





Available wherever computer books are sold. 


vv Addison-Wesley Publishing Company 
Route 128, Reading, MA 01867 (617) 944-3700 
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The Five 





Secrets of 


Power 


Programming 


Presenting Matrix Layout 2.0 


The secret is out. The first program 
to offer you the power to create complete, 
professional-quality software on your IBM 
PC is now more powerful than ever. Pre- 
senting Matrix Layout 2.0, and the secrets 
of power programming. 

Secret #1: 
The CASE of the OOP Flowchart 

Layout 2.0 is built around CASE 
(computer aided software engineering) and 
OOP (object oriented programming). CASE 
lets you create sophisticated programs sim- 
ply by drawing a flowchart. OOP allows you 
to add functions by moving graphic objects 
within the flowchart. Or use the BlackBox 
Manager to install pre-programmed capa- 
bilities— like telecommunications or dBase 
file access—in your program. 


Secret #2: 
The Hypertext File 
Layout 2.0 offers you full hypertext 
capability, allowing you to create Hypercard- 
like cards containing text, graphics, buttons, 
and BlackBoxes. Then, link them to related 
cards in any file. Use your cards to create 
stand alone hypertext applications or add 
them to your flowcharts. 
Secret #3: 
Graphically Speaking 
Layout’s simple graphic interface 
makes it easy to learn and simple to use. 
But more importantly, it allows you to 
incorporate windows, menus, and other 
graphical elements in your own programs. 


Secret #4: 
Our Coded Message 


Once you've designed the functions 
you want, Layout 2.0 will automatically 








write the code (real, commented code!) in 
your choice of Turbo C, Lattice C, Microsoft 
C, Turbo Pascal, and QuickBASIC lan- 
guages. Or just create a .EXE file for use 
with any IBM PC. 


Secret #5: 
A Fast, Powerful Finish 


Creating complete, stand-alone 
programs with Layout 2.0 can cut your 
development time by up to 70%, helping 


you get more programming done in less time. 


And once your programs are finished, 
Layout 2.0 supplies the finishing touches 
by creating the help files and documenta- 
tion you need to teach your new program 
to others. 


Anda 
Powerful Bargain 
For just $199.95 you get the entire 
Layout 2.0 package, including free technical 
support, and more programming power 
than you’ve ever had on your desktop. For 
more information, the location of your near- 
est Matrix dealer, or a copy of the Matrix 
Layout 2.0 VHS demonstration video (just 
$9.95 for shipping & handling), call today. 


1-800-533-5644 
(in Massachusetts, 
617-567-0037) 


The secret to power programming 
is Matrix Layout 2.0. Order yours today! 


SS MATIX 


MATRIX SOFTWARE TECHNOLOGY 





AAA EERE RANT RN 








1. Design and build your programs 
by using a simple flowchart. 





2. Create Hypercard®-like cards, 
linked to information in any file. 





3. Use the Paint tool to create 
powerful graphics and buttons. 





4. Layout creates real source code 
in five major languages. 





5. The end result: powerful, stand-alone 
programs, 70% faster! 


Matrix Software Technology Corporation e One Massachusetts Technology Center ¢ Harborside Drive ¢ Boston, MA 02128 ¢ (617) 567-0037 


Matrix Software/UK e Matrix House. Derriford Business Park e Derriford. Plymouth e Devon PL6 5QZ. England e 0752-796-363. 


The following are registered and unregistered trademarks of the companies listed: Matrix Layout, Matrix Software Technology Corporation; Hypercard. 
Apple Computer: IBM. International Business Machines Corporation; dBase. Ashton Tate. 


Matrix Software/Europe e Geldenaaksebaan 476 ¢ 3030 Leuven, Belgium ¢ 016202064 
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Software Developers 


Natural selection provides unique 


passive protection for the porcupine. 


The Activator - Natural Selection 
For Software Protection 


Inventor and entrepreneur 
Dick Erett explains how 
"The Activator” provides 
sane protection for your in- 


4 1 _ tellectual property. 


66 0 any industry, just as in nature, the 
I process of natural selection raises one 
solution above another. Natural selection is 
the most elegant of engineers. 





In the area of software protection The 
Block has been selected by the market- 
place as the solution that works. Over 
500,000 packages are protected by our 
device. 


For the past 4 years our philosophy has 
been; ‘You have the right and obligation to 
protect your intellectual property.’ 


A New Ethic For Software 
Protection 


In allowing end-users unlimited copies 
of a software package and uninhibited hard 
disk and LAN operation, The Block has 
created a new ethic for software protec- 
tion. 





By removing protection from the 
magnetic media we remove the constraints 
that have plagued legitimate users. 


They simply attach our key to the 
parallel port and forget it. It is totally 
transparent, but the software will not run 
without it. 


A New Technology For 
Software Protection 


Our newest model, The Activator, builds 
on our current patented design, and 
establishes an unprecedented class of 
software protection. 


We have migrated and enhanced the 
circuitry of The Block to an ASIC (Appli- 
cation-Specific Integrated Circuit) 
imbedded in The Activator. 


This greatly improves speed and 
performance, while reducing overall size. 
Data protection can also be provided. 


-Programmable Option 


The Activator allows the software 
developer the option to program serial 
numbers, versions, or other pertinent data 
known only to the developer, into the 
circuit, and access it from the program. 


Once you program your part of the 
chip, even we have no way to access 
your information. 


The ASIC makes emulation of the device 


virtually impossible. It also presents 
an astronomical number of access 
combinations. 


Full 100% Disclosure 


Since The Activator is protected by our 
patent we fully disclose how it works. 
Once you understand it, endless methods 
of protection become evident. 


Just as no two 
snowflakes are the 
same, no two im- 
plementations of 
The Activator 

are identical. [ 
And like the J 
snowflake the 
simplicity of 
The Activator is its greatest beauty. 





We never cramp your programming style 
or ingenuity. Make it as simple or compli- 
cated as you desire. 


Let us help safeguard what's rightfully 
yours. Please call today for additional 
information or a demo unit. /t’s only 
natural to protect your software.” 


1-800-333-0407 ext.101 


In Connecticut 203-329-8870 
Fax 203-329-7428 


oftware 


CCUr it Yine. 


870 High Ridge Road 
Stamford, CT 06905 


wth, 





Unlimited Copies e Programmable e No Batteries e Small Sizee Fast e Patented e Data Protection 








Listing One (Text begins on page 48.) 


class CIRCLE export 
center, radius, intersectl, intersect2, 
on, inside, outside, 
translate, scale, rotate 
feature 
center: POINT; 
radius: REAL; 


intersectl (other: CIRCLE): POINT is 
-- One of the intersections 
-- of current circle with other 
require 
not other.Void; 
center.distance(other.center) 
<=radius + other. radius 


do 
. Computation of intersection 
ensure 
on (Result); 
other.on(Result) 
end; -- intersectl 


intersect2(other:CIRCLE) : POINT is 


on(p:POINT) is 
-- IS p on circle? 


require 

not p.Void 
clommarer 
end; -- on 


inside(p:POINT) is 
-- Is p inside circle? 


require 

not p.Void 
GO” ae 
end; -- inside 


Outside (p:POINT) is 
-- Is p outside circle? 


require 

not p.Void 
do... 
end; -- outside 


Create (c:POINT; r:REAL) is 
--Create circle with center c 
--and radius r 


require 
not c.Void; 
r>=0 

do 


center:=c; radius :=r 
end; -- Create 


. Other features (translate, scale, ...) 


invariant 
See below .. 
end -- class CIRCLE 


End Listing One 


Listing Two 


require 
other not_void:not other.Void; 
Circles intersect: 
center.distance (other.center) 
<=radius + other.radius 


End Listing Two 


Listing Three 


class interface CIRCLE 
exported features 
center, radius, intersectl, intersect2, 
on, inside, outside, 
translate, scale, rotate ... 
feature specification 
center: POINT; 
radius: REAL; 
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intersectl (other: CIRCLE): POINT 
-- One of the intersections 
-- of current circle with other 


require 
not other.Void; 
center.distance(other.center) 
<=radius + other.radius 
ensure 
on (Result) 
other.on (Result) 


intersect (other:CIRCLE): POINT 


on (p:POINT) 
-- Is p on circle? 
require 
not p.Void 


inside (p:POINT) 
-- Is p inside circle? 
require 
not p.Void 
ensure 


Result=(center.distance(p) <radius) 


out side (p:POINT) 
...Specification of other features 
(translate, scale, ...) 


invariant 
. See below ... 


end -~- class interface CIRCLE 


End Listing Three 


Listing Four 
ris 
require 
p 
do 


if not p then 
. Deal with erroneous case 


else 
. Proceed with normal execution .. 
end 
eo End Listing Four 


Listing Five 


class C [T] export 
write, write. successful, .«. 
feature 


write successful: BOOLEAN; 
-- An attribute 


write (x: T) is 

-- Write x, if possible; 
-- make at most five attempts. 
-- Record result in write 


Successful 
local 
attempts: INTEGER 
external 
attempt _to write (x:T) 
language "..." 
do 
if attempts <5 then 
attempt_ to write (x); 
write successful:=true 
else 
write successful:=false 
end 
rescue 
attempts:=attempts+1; 
retry 
end -- write 
end -- class C 


End Listing Five 


The 


Listing Six 


write(x: T) is 


-- make at most five attempts. 


-- Write x; 
local 
attempts: INTEGER 
external 
. As before ... 
do 


attempts:=attemptstl; 
attempt_to write(x); 
rescue 
if attempts < 5 then 
retry 
end 
end -- write 


End Listings 


The world’s leading source 
of information for the 
working C programmer. 


Write or call 


Users Journal” 


2120 W. 25th St. Ste. B 
Lawrence, KS 66047 
913-841-1631 
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Listing One (Text begins on page 64.) 


{Top Window Object} 


TWindow = OBJECT 

Client : Rect; 

Coord Rect; 

TCoord Rect; 

Handle word; 

Shadow boolean; 

Col tWindowColors; 
Captured: boolean; 

Class WindowClasses; 
Bitmap pointer; 


TimeOutState: byte; 
ForceTimeOut: boolean; 


QUICK PASCAL 


CursMode: CursorModes; 
CursX word; 
CursY word; 
procedure TWindow.OpenWindow (Class: WindowClasses; x,y,w,h: word; 
Col: tWindowColors; Shadow: boolean) ; 
procedure TWindow.DrawWindow (Clip: 1lRect); 
procedure TWindow.CloseWindow; 
procedure TWindow.MoveWindow (x,y: word); 
procedure TWindow.ChangeWindow (x,y,w,h: word); 
procedure TWindow.MountWindow; 
procedure TWindow.UnMountWindow; 
procedure TWindow.GetClientArea (var Client: Rect); 
procedure TWindow.WrtChars (var C; Len,x,y: word); 
procedure TWindow.WrtCharsAttr (var C; Attr,Len,x,y: word); 
procedure TWindow.WrtExtendedCharsAttr (var C; Attrl,Attr2,Len,Width,x,y: 
word) ; 
procedure TWindow.WrtNAttr (Attr,Len,x,y: word); 
procedure TWindow.WrtCells (var C; Len,x,y: word); 
procedure TWindow.WrtFrame (F: FramePartsSet; Attr,x,y,w,h: word); 
procedure TWindow.WrtSeparator (RightCorner: boolean; Attr,y: word); 
procedure TWindow.ScrollUp (Lines, Attr,x,y,w,h: word); 
procedure TWindow.ScrollDown (Lines, Attr,x,y,w,h: word); 
procedure TWindow.ScrollLeft (Rows, Attr,x,y,w,h: word); 
procedure TWindow.ScrollRight (Rows, Attr,x,y,w,h: word); 
procedure TWindow.CaptureMouse; 
procedure TWindow.UnCaptureMouse; 
procedure TWindow.PressLMouse (DbleClicked: boolean; x,y: integer); 
procedure TWindow.ReleaseLMouse (x,y: integer); 
procedure TWindow.PressRMouse (DbleClicked: boolean; x,y: integer); 
procedure TWindow.ReleaseRMouse (x,y: integer); 
procedure TWindow.MoveMouse (x,y: integer); 
procedure TWindow.PosCursor (x,y: word); 
procedure TWindow.SetCursorMode (Mode: CursorModes) ; 
procedure TWindow.GetChar (Key: word); 
procedure TWindow.TimeOut; 
procedure TWindow.RefreshStatusLine; 


end; 


Listing Two 


TDialogBox 


{SENDIF} 


procedure 


ValidID 


procedure 
procedure 
procedure 
procedure 
procedure 
ride; 

procedure 
ride; 

procedure 
procedure 
procedure 
procedure 
procedure 
procedure 
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= object (TWindow) 
First : pDialogBoxItem; 
Current pDialogBoxItem; 
Command function (Dialog: TDialogBox; ID:word): boolean; 
ID word; 
HelpNO word; 
UndoID word; 
ValidID word; 
Appli TDialogBoxAppli; 
MouseAction : MouseActions; 
TitleColor boolean; 
HeapPtr pointer; 
TDialogBox.OpenDialogBox (CheckPrevW : boolean; 
: word; 
: pointer; 
: word; 
: word; 
: word); 
TDialogBox.Call (var ID: word); 
TDialogbox.GetChar (Key: word); override; 
TDialogBox.CloseWindow; override; 
TDialogBox.DrawWindow (Clip: lRect); override; 
TDialogBox.PressLMouse (DbleClicked: boolean; x,y: 
TDialogBox.PressRMouse (DbleClicked: boolean; x,y: 
TDialogBox.ReleaseLMouse (x,y: integer); override; 
TDialogBox.MoveMouse (x,y: integer); override; 
TDialogBox.SelectDialogBoxItem (ID: word); 
TDialogBox.TimeOut; override; 
TDialogBox.DelDialogBoxItem (ID: word); 
TDialogBox.AddComment ( 
CommID : word; 
AltID : word; 
X,y,W : word; 
Text : String; 
justif : Justifications) ; 


End Listing One 


integer); over- 


integer); over- 


procedure TDialogBox.AddFrame ( 
FrameID : word; 
AltID : word; 
x,y,w,h : word; 
Text : String); 
procedure TDialogBox.AddSysButton ( 
TabID : word; 
SysID : SysButtons; 
justif : Justifications) ; 
procedure TDialogBox.AddDlgText ( 
TabID : word; 
D1gID : word; 
Size : word; 
X,Y,W : word; 
Text : String); 
procedure TDialogBox.AddPushButton ( 
TabID : word; 
PushID : word; 
X,Y : word; 
State : boolean); 
procedure TDialogBox.AddRadioButton ( 
TabID : word; 
GroupID : word; 
RadioID : word; 
LinkID : word; 
X,Y : word; 
State : boolean; 
Trace : pointer); 
procedure TDialogBox.AddListBox ( 
TabID : word; 
List ID : word; 
Columns : word; 
x,y,w,h : word; 
LinkID : word; 
Trace : pointer); 
procedure TDialogBox.DrawComment ( 
p : pDialogBoxItem) ; 
procedure TDialogBox.DrawFrame ( 
F : FramePartsSet; 
Pp : pDialogBoxItem) ; 
procedure TDialogBox.DrawSysButton ( 
Hilite : boolean; 
p : pDialogBoxItem) ; 
procedure TDialogBox.DrawDlgText ( 
p : pDialogBoxItem) ; 
procedure TDialogBox.DrawPushButton ( 
Pp : pDialogBoxItem) ; 
procedure TDialogBox.DrawRadioButton ( 
p : pDialogBoxItem) ; 
procedure TDialogBox.DrawListBox ( 
p : pDialogBoxItem) ; 
procedure TDialogBox.SetComment ( 
CommID : word; 
Text : String); 
procedure TDialogBox.GetComment ( 
CommID : word; 
var Text : String); 
procedure TDialogBox.GetDlgText ( 
D1gID : word; 
var Text string); 
procedure TDialogBox.SetDlgText ( 
D1lgID : word; 
Text : String); 
procedure TDialogBox.SetLockState ( 
D1gID : word; 
Lock : Boolean); 
procedure TDialogBox.GetPushButton ( 
PushID : word; 
var State : boolean); 
procedure TDialogBox.SetPushButton ( 
PushID : word; 
State : boolean); 
procedure TDialogBox.GetRadioButton ( 
GroupID : word; 
var ID : word); 
procedure TDialogBox.SetRadioButton ( 
GroupID : word; 
ID : word); 
procedure TDialogBox.GetTextListBox ( 
ListID : word; 
var Text : string); 
procedure TDialogBox.GetOffsetListBox ( 
ListID : word; 
var Offset : word); 
procedure TDialogBox.SetTextListBox ( 
ListID : word; 
offset : word; 
Text string); 
procedure TDialogBox.SetOffsetListBox ( 
ListID longint; 
offset : word); 
procedure TDialogBox.ClearListBox ( 
ListID : dword); 
function TDialogBox.AddListBoxItem ( 
ListID : dword; 
Text string): boolean; 


end; 





End Listing Two 
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Listing Three 
EditWindow = object (TDocument) 
ewNext : EditWindow; 
ewP rev : EditWindow; 
ewWDW : word; 
ewDOC : word; 
ewType : DocTypes; 
ewUndo : record 
X : byte; 
Y : word; 
Len : word; 
Buf : MemHandle 
end; 
ewFirstMark , 
ewCursMark : record 
XY: word; 
dX: word 
end; 


procedure EditWindow.OpenFile ( 


var Status 7 QPErrors; 

Col : tWindowColors; 

DOC : word; 

WDW : word; 

Locked : boolean; 
dtType : DocTypes; 
IsNew : boolean; 
Time : LongInt; 
Coord : 1lRect; 
Title : PathStr; 
TextHandle: MemHandle; 
TextSize: word); 


procedure EditWindow.DuplicateWindow; 

procedure EditWindow.SaveFile (var Status: QPErrors; FileName: PathStr; 
DefaultExt: Ex- 

tStr); 

procedure EditWindow.CloseWindow; override; 

procedure EditWindow.CloseDocument; 

function EditWindow.NbLines: word; override; 

function EditWindow.NbColumns: word; override; 

function EditWindow.GetLine (Column, Line,Len: word; var Buffer): word; over- 

ride; 

function EditWindow.GetLineLength (Line: word): word; override; 

procedure EditWindow.GetPhysLine (Column, Line, Len: word; var Cells); override; 

procedure EditWindow.GetChar (Key: word); override; 

function EditWindow.CopyBlock2ClipBoard: boolean; override; 

procedure EditWindow.MountWindow; override; 

procedure EditWindow.UnMountWindow; override; 

procedure EditWindow.ModifyLine (Line: word; PosX,PosY: word); 

procedure EditWindow.ModifyEOF (Line: word; PosX,PosY: word); 

end; 


An instance of an object of type EditWindow; here, the object Edit is passed 
to the procedure InternalReplaceChar. 


procedure InternalReplaceChar ( 


Edit : EditWindow; { <== object declared} 
AtX, AtY : word; 
Ch : Char); 
var 
Pt : pFileText; 
Pl : pFileLines; 
Pi : pFileLinesInfo; 


begin {InternalReplaceChar} 
with Documents[Edit.ewDOC] do begin 
__SaveLineForUndo (Edit, AtX,AtY); 
FarLockMem2 (dLines,Pl, dText,Pt); 
if _ CheckAndExpandIfInTab ( 
EditorError, 
Edit.ewDOC, 
Pt; Pl; 
AtX, AtX, AtY) then begin 
Pt*(P1l* [AtY]+AtX] := 7 
OneSourceModified := true; 
dUsed := true; 
dTime := GetDateTime; 
FarUnLockMem2 (dLines, dText) ; 
if dMarkModif then begin 
{SIFDEF DEBUG} 


Assertion (dInfo <> NullMemHandle, _ LINE_, SourceName); 
{ SENDIF } 
FarLockMeml (dInfo, Pi); 
Pi“ [AtY] := 0; 
FarUnLockMeml (dInfo) 
end 
end 
else 
ExtendedErrorBox (false, EditorError, true, dFileName) 
end 
end; {InternalReplaceChar} 


procedure OpenFile ( 
var Status : QPErrors; 
var Edit 7 EditWindow; 


(continued on page 128) 
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CUT 
PROGRAMMIN 
WITH GRAPHIC 
RESULTS. 





G et to the market quicker with graphics that don’t 
compromise performance. GSS® Graphics 
Development Toolkits for DOS and OS/2 give you 
access to more than 100 high-level graphics func- 
tions. And your GDT-based applications will support 
over 300 graphics devices. 

The GDT is a time-proven solution for programs 
written in C, FORTRAN, Pascal, BASIC Compiler or 
Macro Assembler. It has been optimized through 
eight years of refinement and application to produce 
high-quality, high-performance graphics. 


YOU'LL BE IN GOOD COMPANY. 

IBM has licensed the GDT for its three PC operat- 
ing systems: DOS, OS/2 and AIX. SPC’s Harvard 
Graphics and Ashton-Tate’s Draw APPLAUSE use GDT 
technology. So do hundreds of other PC packages for 
science, business and engineering. 


IN A HURRY? 


CALL (503) 641-2455. 


ASK FOR DEPARTMENT DD 


Order your GDT, or ask for a free copy of our 
Devices Supported booklet. The GDT is the most 
direct route to completing your applications— with 
a graphic difference. 


The GSS logo and GSS are registered trademarks of Graphic Software Systems, Inc. 





Graphic Software Systems 
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QUICK PASCAL 





Windows? OS/2 PM? 


Save 8 Hours Of 
Repetitive Grunt Work 


















































Listing Three (Listing continued, text begins on page 64.) 


Mode : OpenFileModes; 

Every Time You Write ioe — oS 
A Prototype or Application. ent, ee 

Winpro/2 And Winpro/PM: The Fastest, wat Eiletandies 

Easiest Way For C Programmers To Write wd i. word: 

Windows And OS/2 PM Applications. Tine : Longines = 

Once you've created a resource file that describes i es 

your application’s menus, accelerator keys, and dialog Locked: ~—- boolean; 


begin {OpenFile} 
{Check if it’s possible to open a new document} 
Edit := NIL; H := 0; Ht := NullMemHandle; 
if CheckFileNameNotAlreadyLoaded (FileName, DefaultExt) <> 0 then begin 
Status := ErrFileAlreadyLoaded; 
goto Error 


box layouts, it will ordinarily take you more than eight 
hours of repetetive, tedious, error-prone programming 
to create a working program skeleton that incorpo- 
rates the resources you’ve defined. 

Now you can go from a resource file to a working 
prototype in just five minutes, with Winpro/2 or 
Winpro/PM. What’s more, you'll have readable, well- 
commented C language source code that’s more ex- 




























New (Edit); {Memory Allocated for the object Edit} 
Edit.OpenFile (Status, 


tensive, more complete, and more suitable for further oe 
development than the code other products produce. wd, 

FREE TRIAL OFFER: Call us at 201-447-3270 and dtType, ries 
let us send you a copy of Winpro/2 or Winpro/PM. ting 
Try it for 30 days. If it is what we promise--a great ne, 
time-saver and a valuable programming tool--then ae 
mail us a check for $395. If for any reason you don’t if Status <> ErrNone then begin _ 


Error: 


want to keep the product, just send it back to us and 
you don’t owe us a cent. 
Xian Corporation Call: (201) 447-3270 


625 North Monroe St., Ridgewood, NJ 07450 Fax: (201) 447-2547 


if Ht <> NullMemHandle then FarFreeMem (Ht); 

if H <> 0 then DosCloseFile (Dummy, H); 

if Edit <> NIL then begin 

Dispose (Edit); Edit := NIL 

end; 

{ExtendedErrorBox (false, Status, true, FileName) } 
end 
{OpenFile} 
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End Listings 


AT LAST! 
0)" 51: \ a ele] B- 
WITH ONE NOTABLE 
DIFFERENCE. 


THEY WORK. 


Let Overlay Architect and Overlay 
Optimizer solve your overlay problems. 
Overlay Architect analyzes your object code 
and builds the tightest possible Plink86Plus™ 
or RTLink™ overlay structure. Overlay Opti- 
mizer tunes your overlay structure to make | | 
your program run as fast as possible. Use einen Say nee ana | 
them separately, or use them together to Information Catalog. 


make your program smaller and faster! 
The Catalog lists about 200 federal 


D . publications, many of them free. They can 
Don’t spend another minute stuck at your Pele vou caligul aimee yom micnes, sae 


desk with an overlay problem! healthy, plan your child’s education, learn 


about federal benefits and more. 
Call 1-303-938-1 210 So sharpen your pencil. Write for the free 


Consumer Information Catalog. And get 
AN fh reading worth writing for. 
@ 


eke ATS aS ew Consumer Information Center 
% . / \ 5 ; ] 
449 Mountain View Road Department RW 

Boulder, CO 80302 Pueblo, Colorado 81009 


A public service of this publication and the Consumer Information Center of the U.S. General Services Administration. 


Overlay Architect: $369 Overlay Optimizer: $269 


CIRCLE NO. 378 ON READER SERVICE CARD 
128 Dr. Dobb’s Journal, December 1989 





4 
E 
S 
5 
5 
re. 
5 
5 
5 
5 
5 
5 
% 
S 
5 
! 
6 
e' 
5 
' 
5 
re! 
5 
5 
E 
5 
e! 
E 
5 
5 
6 
5 
re, 
5 
5 
. 
2 
ve 
5 
5 
2! 
6 
re 
re 
E 
5 
ve’ 
5 
' 
5 
" 
o 
5 
5 
5 
3 
ve 
E 
5 
5 
6 
5 
E 
S 
5 
5 


S 
5 
S 
5 
e! 
% 
5 


°' 
% 
5 


5 
6 
5 
e' 
S 
"° 
e 
'e' 
S 
S 
5 
5 
° 
s 
e 
2! 
o 
5 
5 
5 
5 
6 
*e 
5 
5 
S 
5 
5 
5 
5 
S 
5 
6 
"o 
5 
5 
' 
e' 
oe 
5 
e' 
e' 
5 
5 
5 
6 
"e' 
2! 
5 
’e' 
5 
e' 
5 
5 
5 
"e' 
5 
5 


5 
6 
5 
5 
6 
% 
5 
5 
5 
— 
e' 
5 
e' 
x 
5 
5 
5 
5 
5 
"e' 
5 
5 
e 
e' 
5 
e' 
S 
5 
5 
5 
5 
4 
. 
S 
5 
5 
~ 
e 
e' 
<' 
5 
*e' 
! 
5 
2" 
5 
5 
5 
5 
e! 
5 
5 
5 
5 
S 


5 
6 
5 
E 
6 
S 
E 
E 
‘ 
6 
S 
5 
2 
5 
5 
5 
ve’ 
5 
5 
5 
6 
o 
re 
. 
! 
e' 
° 
5 
S 
o 
% 
4 
% 
§ 
ove 
5 





7 y 9 : 1, EE oy 
as etete: 

Oeoehe) 

oeeeee 





*¢ 5 
SOI 
onereseserereere 
COOUOOOOS 
















PROGRAMMING 
THE USER INTERFACE 


GRAPHICS 
PROCRAMMING 


IN 
TURBO C 





PRINCIPLES APE EX 2a PLE 


eee: | 
5 





BUDTTH R.Br vers 
STEVE CUNPINGH EM 
















[J GRAPHICS PROGRAMMING 
IN TURBO C 


LEENDERT AMMERAAL 

Stressing the practical needs of the user, this work 
explains the use of the Turbo C graphics library and 
a set of graphics C functions. Ammeraal shows 
how to obtain graphics output on the computer 
screen and how to incorporate graphics into text 
documents, offering many illustrated examples. 


1-92439-3 Aug. 1989 199pp $27.95(paper) 


[J PROGRAMMING THE 
USER INTERFACE 


Principles and Examples 


JUDITH R. BROWN& STEVE CUNNINGHAM 

This book presents practicing programmers with a 
set of concrete principles for user interface system 
design and operation. Inside are code examples of 
user interface techniques, figures illustrating user 
interface styles, and sample programs and screens. 


1-63843-9 April 1989 384pp $29.95 


[J DESIGNING AND WRITING 


ONLINE DOCUMENTATION 
Help Files to Hypertext 


WILLIAM HORTON 


7 This work presents a step-by-step process for de- 


signing effective online documentation systems, 
including help facilities, menues and more. 


1-50772-5 Dec. 1989 385pp $24.95(paper) 


[J CONCURRENT PROGRAMMING 


Fundamental Techniques for Real-Time 
and Parallel Software Design 

TOM AXFORD 

Written for the practicing software engineer, this 
book covers the general principles and basic algo- 
rithms which are necessary for a wide range of real- 
time and parallel applications. 


1-92303-6 Oct. 1989 250pp $31.95(paper) 


To order by phone: 


Call Toll-Free 
1-800-526-5368 


All other inquiries, call 212-850-6418 


E]WILEY 





"o"0 "000 





From the Basics to the Cutting Edge of Computer Technology .. . 


NEW & BESTSELLING BOOKS FROM WILEY 


(J) REUSABILITY AND SOFTWARE 
CONSTRUCTION: C AND C++ 


JERRY SMITH 

Here is a practical introduction to reusability and 
software development for programmers familiar with 
C and C++, focusing on techniques that will ensure 
effective object oriented programming. Smith pro- 
vides two implementations of a medium sized project 
— one in C and one in C++. 


1-52411-5 Feb. 1990 400pp $32.95(paper) tent) 


(J INTELLIGENT DATABASES 


Object Oriented, Deductive 

Hypermedia Technologies 

KAMRAN PARSAYE, MARK CHIGNELL, 

SETRAG KHOSHAFIAN & HARRY WONG 
Heavily-illustrated to highlight key ideas, this book 
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(J NEURAL AND CONCURRENT 
REAL-TIME SYSTEMS 


The Sixth Generation 

BRANKO SOUCEK 

This definitive reference is the first book to explain 
intelligent real-time systems. Combining the tech- 
nologies of neural networks, expert systems and 
concurrent systems, Soucek discusses new devel- 
opments in hardware, software and applications. 


1-S( 


TO ORDER, check off your selection, fill out the form below & mail the entire ad to: 
JOHN WILEY & SONS, INC. 605 Third Avenue, NY, NY 10158, Att: S. Nelson, 10th Floor 


[ ] Send for 15 day exam, with bill 


[ _] Payment enclosed (Prepaid orders will be sent postpaid) 


[ ]Chargemy: [ ]VISA [ ] MASTERCARD [ ] AMEX 


Card #: 





Expiration Date: / 


NAME: 
FIRM: 

ADDRESS: 

CITY/STATE/ZIP: | 


sesecesta tata tetecetsecteteeseseceroceneresevecetatatatetetetetetete tee eee Taare TEN OT OOOO TOTO EOTE 
eee eneatncusnere.te-scevevovevateverevereratetetetetstetatetatate eeetteternaenasdneneserenavaretetateeta eta te ete eee a Tea E TE TOOTS TET T ETE 


CIRCLE NO. 140 ON READER SERVICE CARD 


08a tote etete ete ete ce hee ee eee a te eT NO Te eee ONTOS 
SIE 


aN Prices subject to change without notice & higher outside the USA | SIGN ATURE: ii case ass & #0-0162 fs 


SOOO OSSD SOOO ES SS eI SIE 


ore eren er en eters eter etete eo 
ototatatatetetetetetetetete 





oosereseretovetetevoretere a ee cre avate ate a ahaha ete eee OOO Oe eaten 
oo pea es eae ete otenedoneueuousanereretereratatatatavatatatatatatatatetatetetster eee eatn enna eee ate eee a OOOO 






. 
. 
° 
. 
o 
a 





° 
. 
5 
. 
° 
. 
S 
'. 
5 
: 








PC-lint te # 1 Lint for MS-DOS 













void 
Main() { 
struct{unsigned 
a:2, b:3, c:4;)}s; 
“unsigned row,col;char 
ch;int x;char y;unsigned 
z;void printf ( ) 
; 7* a lie but 
harmless 
*/ x=0 
/* x is 
set to 
zero*/row 
=25;col= 
80; if ( 
row+col> 
-1) x++;ch= 
'\xFF! ; if ( 
(unsigned) 





You have 
just inherited 
this C program. 










What do you do? 






(a) Run away 






(b) Run PC-lint 











Use PC-lint to examine 






7, itt foreign looking C code 

Eee, and report on potential 
’ problems and difficulties. 

if(2/ PC-lint’s many options 





let you quickly and easily 
suppress unwanted error 


-1)x++;s.b 
=10;if( s.b 
>5) x++7z = 









373 if (-2<0 ) messages and extract just 
iekakas the information you need. 
xX )7} 







PC-lint is a C source code analysis tool. It will 
check code more thoroughly than a C compiler and, 
because it looks across multiple modules, it enjoys a 
perspective that your compiler doesn’t have. 







Control your development time and cost. Locate 
source code errors that could otherwise go unde- 
tected for days, months or even years. 







Over 200 error messages. More than 70 options 
for complete customization. Suppress error mes- 
sages, locally or globally, by symbol name, by message 
number, both, etc. Easy to Use - If you know C you 
already know how to use PC-lint. Check for 
portability problems. Alter size of scalars. Adjust 
format of error messages. Automatically generate 
ANSI prot 



















Gimpe] Software 
3207 Hogarth Lane Collegeville PA 19426 
(215)584-4261 
Only $139 - CALL TODAY 
30 Day Money-back Guarantee 









Specify MS-DOS or OS/2. Quantity and educational discounts 
available. PA add 6% sales tax -- Outside USA add $20. 
PC-lint and FlexeLint are trademarks of Gimpel Software. 
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LOGIC SIMULATOR 


Listing One ( Text begins on page 72.) 


Object subclass: #LogicLab 
instanceVariableNames: 


‘devices signals switches clashes changed topPane analyzer breadboard 
listSelector currentComponent ' 


classVariableNames: '’ 
poolDictionaries: 
’FunctionKeys CharacterConstants ’ ! 


'LogicLab class methods ! 
description 
"Answer a String describing the 
application and version." 
“'LogicLab (Version 1.0 -- 06/26/88)’.! 


"Answer an initialized LogicLab application." 
' logicLab | 
logicLab := super new. 
logicLab initialize. 
“logicLab.! ! 


'LogicLab methods ! 
addComponent: aComponent 
"Add aComponent to the circuit description. 
If there is an error, answer nil; otherwise 
answer aComponent." 


+ name ; 
name := aComponent name. 
name size == 
ifTrue: [ 
" 
User is installing -- get a name. 
name := self getNewName. 


name isNil 
1fTrue: [nil]. 
aComponent name: name] 
ifFalse: [ 


A name has been supplied -- this implies 
that the component is being installed from 
a file. Need to check for a clash with 

an existing name. 


((self componentNamed: name) isNil) 
ifFalse: [ 


Had a name clash -- get a synonym 
from the user and stash both of them 
away in the clashes table. Then 
rename the component. 


name := self getNewName. 
name isNil 
ifTrue: [‘*nil]. 
clashes 
at: aComponent name 
put: name. 
aComponent name: name]]. 
changed := true. 
aComponent isDevice 
ifTrue: [devices add: aComponent] 
ifFalse: [ 
aComponent isSignal 
ifTrue: [signals add: aComponent ] 
ifFalse: [ 
switches add: aComponent. 
analyzer isNil 
ifFalse: [analyzer addSwitch: aComponent]]]. 
“aComponent.! 
allNames 
"Answer an array of all of the 
names of installed components." 


“((self deviceNames), (self signalNames), (self switchNames)).! 


analyzer: aModel 
"Set the LogicAnalyzer Application model 
to aModel." 
analyzer := aModel.! 
breadboardList 
"Answer an array of strings according to the 
current list selector." 
listSelector isNil 
ifTrue: [listSelector := #listDevices]. 
‘(self perform: listSelector) .! 
breadboardMenu 
"Private -- answer the menu that processes 
breadboard functions." 
MenuPosition := Cursor position. 
“(Menu 
labels: (’Load\Save\Erase\List\’, 
'Install\Connect \Remove\Disconnect\’, 
’Simulate\’, 
‘Quit’) withCrs 
lines: #(4 8 9) 


selectors: #(load save erase list 
install connect remove disconnect 
run 
quit)).! 
changed 
"Answer true if the circuit has changed." 
“changed. ! 


changed: aBoolean 
"Set the circuit-changed flag to aBoolean." 
changed := aBoolean.! 
close 
"Close the LogicLab breadboarding window." 
topPane dispatcher deactivateWindow closeWindow. ! 
closeIt 
"Close the breadboard application window." 
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self close.! 
componentNamed: aName 
"Answer the component (device, signal, or switch) 
whose name is aName. If no component can be found 
answer nil." 
‘ realName | 
realName := aName. 
clashes isNil 
ifFalse: [ 
(clashes includesKey: aName) 
ifTrue: [realName := clashes at: aName]]. 
devices do: [:aDevice,: 
(aDevice name = realName) 
ifTrue: [*aDevice]]. 
Signals do: [:aSignal,. 
(aSignal name = realName) 
ifTrue: [*aSignal]]. 
switches do: [:aSwitch, 
(aSwitch name = realName) 
ifTrue: [’aSwitch]]. 

Ania. 
componentTypeMenu: selectorArray 

"Answer a user-selected action for a 

component type." 

*( (Menu 

labels: 'Device\Signal\Switch’ withCrs 

lines: #() 
selectors: selectorArray) popUpAt: MenuPosition) .! 

connect 

"Make a user-specified connection." 

‘1 from to | 
from := self getNode. 
from isNil 

ifTrue: [‘*nil]. 
to := self getNode. 
to isNil 
ifTrue: [‘*nil]. 
from connect: to. 


changed := true. 
CurrentComponent := from model. 
listSelector := #listComponentConnections. 
breadboard update.! 
description 


"Answer a string with a description of the receiver." 
“(self class description) .! 
deviceNames 
"Answer a collection of all of the 
names of installed devices." 


, list | 
list := OrderedCollection new: (devices size). 
devices do: [:aDevice: list add: aDevice name]. 
Lust. ! 
devices 
"Answer the list of installed devices." 
“devices. ! 
disconnect 


"Remove a user-specified connection." 
' node ; 
node := self getNode. 
node isNil 
ifTrue: [*nil]. 
node disconnect. 


changed := true. 
currentComponent := node model. 
listSelector := #listComponentConnections. 


breadboard update. ! 
erase 
"After user-verification, erase 
the circuit description." 
Cursor offset: MenuPosition. 
(self verify: ‘Erase circuit description?’ ) 
ifFalse: [*nil]. 
self eraseCircuit. 
listSelector := #listDevices. 
changed := true. 
breadboard update. ! 
eraseCircuit 
"Erase the circuit description." 
devices do: [:aDevice: 
self removeComponent: aDevice]. 
Signals do: [:aSignal: 
self removeComponent: aSignal]. 
Switches do: [:aSwitch: 
self removeComponent: aSwitch]. 
self initialize.! 
getExistingComponent 
"Answer a user-specified component." 
' Name component reply list | 
name := self getName. 
name isNil 
ifTrue: [‘*nil]. 
component := self componentNamed: name. 
component isNil 
ifFalse: [*component]. 
Cursor offset: MenuPosition. 
(Menu message: 
(name, ‘’ not installed -- select from list?’)) isNil 
ifTrue: [‘*nil]. 
Cursor offset: MenuPosition. 
reply := self componentTypeMenu: 
#(deviceNames signalNames switchNames). 
Cursor offset: MenuPosition. 
reply isNil 
ifTrue: [*nil]. 
list := self perform: reply. 
(list size == 0) 
ifTrue: [ 
Menu message: ‘’None installed’. 
Cursor offset: MenuPosition. 
“nil). 
name := VariableMenu selectFrom: list. 
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name isNil 
ifTrue: [*nil]. 
name := list at: name. 
“(self componentNamed: name) .! 


getExistingName 


"Answer a user-specified name of 
an existing component." 
1 component | 
component := self getExistingComponent. 
component isNil 
ifTrue: [‘*nil]. 
“(component name) .! 
getFile 
"Answer a FileStream for a 
user-specified filename." 
‘+ name | 
name := self getFilename. 
name isNil 
1fTrue: [‘*nil]. 
“(File pathName: name) .! 
getFilename 
"Answer a user-specified filename." 


+ name | 
Cursor offset: MenuPosition. 
name := 
Prompter 
prompt: ‘’Enter filename’ 
default: ’'’. 
Cursor offset: MenuPosition. 
“name. ! 
getName 
"Answer a user-specified name." 
' name | 
Cursor offset: MenuPosition. 
name := 
Prompter 
prompt: ‘Enter component name’ 
default: '’. 
Cursor offset: MenuPosition. 
“name. ! 
getNewName 


"Answer a user-specified name for 
a new component." 


i name | 
Cursor offset: MenuPosition. 
name := 
Prompter 
prompt: ’Enter name for new component’ 
default: ’’. 


Cursor offset: MenuPosition. 
name isNil 
ifTrue: [‘*nil]. 
[(self componentNamed: name) isNil] 
whileFalse: [ 
name := 
Prompter 
prompt: ’Name exists -- enter NEW name’ 
default: name. 
Cursor offset: MenuPosition. 
name isNil 
ifTrue: [‘*nil]]. 


“name. ! 
getNode 
"Answer a user-specified LogicNode." 
' component | 
component := self getExistingComponent. 


component isNil 
iffrue: [‘*nil]. 
“(component getNode) .! 
initialize 
"Private -- initialize a new 
LogicLab application." 
devices := OrderedCollection new. 
signals := OrderedCollection new. 
switches := OrderedCollection new. 
changed := true.! 
install 
"Install a user-specified component." 
' component | 
component := LogicComponent install. 
component isNil 
ifTfrue: [‘*nil]. 
self addComponent: component. 


listSelector := self listSelectorFor: component. 
breadboard update. 
“component. ! 


installClassFrom: aStream 
"Install a LogicComponent subclass 
whose name is the next word on aStream." 
' ClassName | 
className := aStream nextWord. 
(Smalltalk includesKey: className asSymbol) 
ifFalse: [ 
self error: ('’Class: ', className, ’ not installed’)].! 
installComponentFrom: aStream 
"Install a LogicComponent instance 
whose name is the next word on aStream." 


: ClassName class component | 


ClassName := aStream nextWord. 
class := LogicComponent classNamed: className. 
class isNil 
ifTrue: [ 
self error: (’Unknown class: ’, className). 
“nid ))s 
component := class new installFrom: aStream. 


component isNil 
ifTrue: [*nil]. 


(continued on page 132) 
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Listing One (Listing continued, text begins on page 72.) list 


“(self addComponent: component) .! 
installConnectionFrom: aStream 
"Install a connection from aStream." 
+ fromName from toName to fromNode toNode ; 
fromName := aStream nextWord. 
from := self componentNamed: fromName. 
from isNil 
ifTrue: [ 


’ 


self error: (’Unknown component: ’, fromName). 


“nil). 
fromNode := from getNodeFrom: aStream. 

fromNode isNil 

ifTrue: [ 


self error: (’Unknown node on: ’, fromName). 


oval 
toName := aStream nextWord. 
to := self componentNamed: toName. 
to isNil 
ifTrue: [ 


y 


self error: (’Unknown component: ’, toName). 


“nil]. 
toNode := to getNodeFrom: aStream. 
toNode isNil 
ifTrue: [ 


self error: (‘Unknown node on: ’, toName). 


“npl ys 
“(fromNode connect: toNode) .! 
installFrom: aStream 
"Load a circuit from the description 
on aStream." 
| keyWord | 
clashes := Dictionary new. 
[(aStream atEnd) 
or: [(keyWord := aStream nextWord) isNil]] 
whileFalse: [ 


LOGIC SIMULATOR 


; selection |: 
selection := 
(Menu 


"Process a user-specified list request." 


labels: ('Components\Connections\’, 
‘Circuit Description’) withCrs 


lines: #() 


selectors: #(listComponents 
listConnections 
listCircuit) ) 

popUpAt: MenuPosition. 


selection isNil 


ifTrue: [‘*nil]. 


listSelector := selection. 


breadboard update. ! 
listCircuit 


"Answer a collection of strings with 
the circuit description." 


; Mame stream list | 


CursorManager execute change. 


name := ’logiclab.tmp’. 


stream := File pathName: name. 
list := OrderedCollection new. 


stream 


nextPutAll: ‘'**** 


Cr; 
cr. 


self storeOn: stream. 


stream flush. 
stream position: 0. 
[stream atEnd] 


Circuit Description ****’; 


whileFalse: [list add: stream nextLine]. 


stream close. 
File remove: name. 


CursorManager normal change. 


“List! 


keyWord = ‘LOAD’ 
ifTrue: ([ 
self installClassFrom: aStream] 
ifFalse: [ 
keyWord = ’INSTALL’ 
ifTrue: ([ 
self installComponentFrom: aStream] 
ifFalse: [ 
keyWord = ‘CONNECT’ 
ifTrue: [ 
self installConnectionFrom: aStream] 
ifFalse: [ 
self error: 
(‘Unknown command: ', 
keyWord) ]]]]. 


listComponentConnections 
"Answer a collection of strings listing 
the connection chain(s) for the 
"currentComponent’." 
currentComponent isNil 
ifTrue: [*#()] 
ifFalse: [ 
“(#('**** Connection List ****! ' 7), 
CcurrentComponent connectionList)].! 
listComponents 
"Answer a collection of strings containing 
a list of installed components." 
' selection | 
selection := 
self componentTypeMenu: 


clashes release. 
clashes := nil.! 


The Professional Library for Object-Oriented Pascal 


Object Oriented Data Too 


Build your programs from proven 
and documented object types 
like stacks, linked lists, 
virtual arrays, and more. 
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LOGIC SIMULATOR 


Listing One (Listing continued, text begins on page 72.) 


#(listDevices listSignals listSwitches). 
selection isNil 
iffrue: [*#()]. 
“(self perform: selection) .! 
listConnections 
"Answer a collection of strings listing 
the connection chain(s) for a 
user-specified component." 
' component | 
component := self getExistingComponent. 
component isNil 
ifTrue: [*#()]. 
currentComponent := component. 
“self listComponentConnections.! 
listContaining: aComponent 
"Answer the list (devices, signals, or switches) 
that includes aComponent." 
(devices includes: aComponent) 
ifTrue: [*devices]. 
(signals includes: aComponent) 
ifTrue: [*signals]. 
“switches. ! 
listDevices 
"Answer a collection of strings containing 
a list of all the installed devices." 
: Size list | 
size := devices size. 
size == 
ifTrue: [*#(’No devices installed’)]. 
size := size +1. 
list := OrderedCollection new: size. 
list add: ‘DEVICES’. 
devices do: [:aDevice: list add: (’ ’, (aDevice identify))]. 
“list.! 
listSelectorFor: aComponent 
"Answer the list selector method used 
to produce the list for aComponent’s type." 
aComponent isDevice 
ifTrue: [*#listDevices]. 
aComponent isSignal 
ifTrue: [*#listSignals]. 
“#listSwitches.! 
listSignals 
"Answer a collection of strings containing 
a list of all the installed input signals." 


:' size list | 

size := signals size. 

size == 

ifTrue: [*#(’No signals installed’)]. 
size := size +1. 

list := OrderedCollection new: size. 


list add: ’SIGNALS’. 
signals do: [:aSignal: list add: (’ ’, (aSignal identify))]. 
“list.! 
listSwitches 
"Answer a collection of strings containing 
a list of all the installed swithces." 


' Size list | 
size := switches size. 

size == 

ifTrue: [*#(’No switches installed’)]. 
size := size +l. 

list := OrderedCollection new: size. 


list add: ‘’SWITHCES’. 
switches do: [:aSwitch: list add: (’ ’, (aSwitch identify))]. 
“list.! 
load 
"Load a circuit description from 
a user-specified file." 


; file \’ 
file := self getFile. 
file isNil 


ifTrue: [‘*nil]. 
self installFrom: file. 
listSelector := #listDevices. 


breadboard update.! 
noDelay 
"Setup all components to ignore 
propagation delays." 
signals do: [:signal: signal noDelay]. 
switches do: [:switch: switch noDelay]. 
devices do: [:device: device noDelay].! 
noMenu 
"Private -- answer an empty menu.” 
*(EmptyMenu new) .! 
open 
"Open the Breadboard and Analyzer windows." 
' size position ; 


size := (Display boundingBox extent * 3) // 4. 
position := Display boundingBox center - (size // 2). 
topPane := 
TopPane new 
label: ((self class description), 
' -- Breadboard’); 


model: self; 
menu: #noMenu; 
yourself. 
topPane addSubpane: 
(breadboard := ListPane new 
name: #breadboardList; 
model: self; 
menu: #breadboardMenu; 
change: #doNothing:; 
framingRatio: (0 @ 0 extent: 1 @1)). 
topPane reframe: (position extent: size). 
topPane dispatcher openWindow scheduleWindow. ! 
quit 
"Quit this LogicLab." 





(self verify: ‘Quit this LogicLab?’ ) 
ifFalse: [*nil]. 
self eraseCircuit. 
signals := switches := devices := nil. 
analyzer isNil 
ifFalse: [ 
analyzer closeWindow. 
analyzer := nil]. 
breadboard dispatcher deactivateWindow closeWindow. 
Scheduler systemDispatcher redraw. 
Scheduler resume. ! 


remove 
"Remove a user-specified component." 
' component : 
component := self getExistingComponent. 


component isNil 
ifTrue: [‘*nil]. 
changed := true. 
listSelector := self listSelectorFor: component. 
self removeComponent: component. 
breadboard update. ! 
removeComponent: aComponent 
"Remove aComponent from the circuit." 
analyzer isNil 
ifFalse: [analyzer removeComponent: aComponent]. 
(self listContaining: aComponent) remove: aComponent. 
aComponent remove.! 


reset 
"Reset all components." 
signals do: [:signal: signal reset]. 
switches do: [:switch: switch reset]. 
devices do: [:device: device reset].! 
restoreDelay 
"Setup all components to use 
propagation delays." 
signals do: [:signal: signal restoreDelay]. 
switches do: [:switch: switch restoreDelay]. 
devices do: [:device: device restoreDelay].! 
resume 


"Resume the breadboarding application 

after running the simulation." 
Cursor offset: breadboard frame center. 
topPane dispatcher scheduleWindow. ! 


run 
"Invoke the LogicAnalyzer to run the simulation." 
analyzer isNil 
ifTrue: [ 
analyzer := LogicAnalyzer new. 
analyzer openOn: self] 
ifFalse: [analyzer activate] .! 
save 
"Store the circuit description in 
a user-specified file." 
1 file ; 
file := self getFile. 
file isNil 
ifTrue: [*nil]. 
CursorManager execute change. 
self storeOn: file. 
file 
flush; 
close. 
CursorManager normal change.! 
selectName 


"Answer a user-selected name from a list 
of the names of installed components." 
' Names index | 
names := self allNames. 
(names size == 0) 
ifTrue: [*nil]. 
index := VariableMenu selectFrom: names. 
index isNil 
ifTrue: [‘*nil]. 
“(names at: index) .! 
signalNames 
"Answer a collection of all of the 
names of installed signals." 


‘ list : 
list := OrderedCollection new: (signals size). 
signals do: [:aSignal; list add: aSignal name]. 
“list.! 
signals 
"Answer the list of installed signals." 
“signals.! 
simulate 
"Simulate one pseudo-time interval." 
Signals do: [:signal: signal simulate]. 
switches do: [:switch: switch simulate]. 
devices do: [:device: device simulate].! 


storeClassesOn: aStream 
"Write a record of each component class 
used by the circuit on aStream." 


' Classes | 
classes := Set new. 
devices do: [:aDevice: classes add: aDevice class]. 
signals do: [:aSignal: classes add: aSignal class]. 
switches do: [:aSwitch: classes add: aSwitch class]. 
classes do: [:aClass: 
aStream 
nextPutAll: (‘LOAD ’, (aClass name)); 
er] .«4 


storeComponentsFrom: aCollection on: aStream 
"Write a record of each logic component from 
aCollection installed in the circuit on aStream." 
aCollection do: [:aComponent. 
aStream nextPutAll: ’INSTALL ’. 
aComponent storeOn: aStream. 
aStream cr].! 
storeConnectionsOn: aStream 
"Write a record of each connection 


(continued on page 136) 
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LOGIC SIMULATOR 


Listing One (Listing continued, text begins on page 72. ) 


in the circuit on aStream." 


devices do: [:aDevice: aDevice storeConnectionsOn: aStream]. 

signals do: [:aSignal: aSignal storeConnectionsOn: aStream]. 
switches do: [:aSwitch: aSwitch storeConnectionsOn: aStream]. 
devices do: [:aDevice: aDevice unMark]. 

signals do: [:aSignal: aSignal unMark]. 
switches do: [:aSwitch: aSwitch unMark].! 


storeDevicesOn: aStream 
"Write a record of each logic device 
installed in the circuit on aStream." 
self storeComponentsFrom: devices on: aStream. ! 
storeOn: aStream 
"Write a description of the circuit on 
aStream in a form that can be recovered 
by the ’installOn:’ method." 
self 
storeClassesOn: aStream; 
storeDevicesOn: aStream; 
storeSignalsOn: aStream; 
storeSwitchesOn: aStream; 
storeConnectionsOn: aStream.! 
storeSignalsOn: aStream 
"Write a record of each logic signal 
installed in the circuit on aStream." 
self storeComponentsFrom: signals on: aStream.! 
storeSwitchesOn: aStream 
"Write a record of each logic switch 
installed in the circuit on aStream." 
self storeComponentsFrom: switches on: aStream.! 
switches 
"Answer the list of installed switches." 
“switches. ! 
switchNames 
"Answer a collection of all of the 
names of installed swithces."” 


; list | 

list := OrderedCollection new: (switches size). 
switches do: [:aSwitch: list add: aSwitch name]. 
Vist:.! 


verify: aPrompt 
"Ask the user to verify some condition." 
Cursor offset: MenuPosition. 
‘((Menu message: aPrompt) notNil).! ! 


End Listing One 


MULTITASKING 
KERNEL 
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— memory allocation 
m Event Manager 
m Semaphore Manager 
@ List Manager 


@ Fast, reliable operation 

= Compact and ROMable 

w PC peripheral support 

w DOS file access 

@ C language support 
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Listing Two 


LogicSwitch subclass: #ToggleSwitch 
instanceVariableNames: '’ 
classVariableNames: ’’ 
poolDictionaries: ’'’ ! 


'ToggleSwitch class methods ! 


type 
"Answer a string with the receiver’s type." 
“'Toggle Switch’.! ! 
'ToggleSwitch methods ! 
identify 
"Answer a string identifying the receiver." 
“((self name), 
» (?, (self type), *)").1 
push: aButton 
"Simulate pushing a toggle switch by 
inverting its state." 
node invert. 
node isHigh 
ifTrue: [aButton lampOn] 
ifFalse: [aButton lampOff]. 
(model isNil or: [changeSelector isNil]) 
ifFalse: [model perform: changeSelector].! 
reset 
"Reset the receiver.” 
button isNil 
ifFalse: [ 
node isHigh 
iffrue: [button lampOn] 
ifFalse: [button lampOff]].! 
simulate 
"Simulate a toggle switch." 
node output.! ! 


End Listing Two 


Listing Three 


LogicSwitch subclass: #PulserSwitch 
instanceVariableNames: 
’rest time timer ’ 
classVariableNames: ’’ 
poolDictionaries: ’’ ! 


'PulserSwitch class methods ! 


type 
"Answer a string with the receiver’s type." 
“'Pulser’.! ! 
'PulserSwitch methods ! 


PRINTER GRAPHICS 
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GRAPHLINK™ Printer Graphics Toolkit 


GraphLink™ lets your programs tap the full potential of 
printers to produce dazzling printed graphics in 
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eSupports Turbo Pascal 4.0 and higher. Available soon for Turbo C, 
Microsoft C, and Quick C 
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identify 
"Answer a string identifying the receiver." 
“((self name), 
’ (', (self type), ’ -- a 
(LogicNode 
StatePrintString: (LogicNode not: rest)), ’: ’ 
(TimeInterval timePrintString: time), ’)’).! 
initialize 
"Initialize a new PulserSwitch." 
super initialize. 
rest false. 
time timer := 0.! 


’ 


install 
"Answer the receiver with user-specified 
rest state and pulse time." 


rest := LogicNode getState. "User will select pulse state" 
rest isNil 
ifTrue: [“super release]. 
rest := LogicNode not: rest. 
time := TimeInterval getTimeFor: ‘pulse’. 
time isNil 
ifTrue: [*super release]. 
“self.! 


installFrom: aStream 
"Answer a new PulserSwitch initialized with 
Parameters read from aStream." 
Super installFrom: aStream. 


rest := LogicNode stateNamed: aStream nextWord. 
node state: rest. 

time := aStream nextWord asInteger. 

“self.! 


push: aButton 
"Simulate pushing a Pulser Switch." 


timer == 0 

ifTrue: [node state: (LogicNode not: rest) ]. 
timer := time. 
node isHigh 

ifTrue: [aButton lampOn] 


ifFalse: [aButton lampOff]. 
(model isNil or: [changeSelector isNil]) 
ifFalse: [model perform: changeSelector].! 
reset 
"Reset the receiver’s state to its resting 
State and its timer to zero." 
node state: rest. 
timer := 0. 
button isNil 
ifFalse: [ 
node isHigh 
ifTrue: [button lampOn] 
ifFalse: [button lampOff]].! 
simulate 
"Simulate a Pulser Switch." 


timer == 
ifTrue: [ 
node state: rest. 
button isNil 
ifFalse: [ 
node isHigh 
ifTrue: [button lampOn] 
ifFalse: [button lampOff]]] 
ifFalse: [timer := timer - 1]. 
node output.! 
storeOn: aStream 


"Store a record of the receiver on aStream." 
Super storeOn: aStream. 
aStream 
nextPutAll: (’ ’, 
(LogicNode statePrintString: 
(time printString)).! ! 


rest), " ",; 


End Listing Three 


Listing Four 


LogicDevice subclass: #N74LS00 
instanceVariableNames: ’’ 
ClassVariableNames: '’ 
poolDictionaries: '’ ! 


'N74LS00 class methods ! 
description 
"Answer a string with a description 
of the receiver’s function." 
“"Quad 2-input NAND gate’.! 


type 
"Answer a string with the receiver's type." 
“"74LS00'.! |! 
'N74LS00 methods ! 
initialize 
"Private -- initialize the propagation delays 
for a new 74LS00 LogicDevice." 
super . 
initialize; 
initializeDelays: 
et 5 5 10 5 5 10 0 
10 5 5S 10 § 5 0 ).! 
simulate 


"Simulate a 74LS00 device." 

((pins at: 1) isHigh and: [(pins at: 2) isHigh] ) 
iffrue: [(pins at: 3) output: false] 
ifFalse: [(pins at: 3) output: true]. 

((pins at: 4) isHigh and: [(pins at: 5) isHigh]) 
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The most powerful PC graphics 
toolkit now has the most pow- 
erful font editing system! 

FontWINDOW makes it sim- 
ple for you to create, edit & 
customize your own fonts. £ 
Using FontWINDOW you can 
create virtually unlimited graphic fonts, 
icons, foreign language styles and animation cells. 
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Listing Four (Listing continued, text begins on page 72.) 


ifTrue: [(pins at: 6) output: false] 
ifFalse: [(pins at: 6) output: true]. 

((pins at: 10) isHigh and: [(pins at: 9) isHigh]) 
ifTrue: [(pins at: 8) output: false] 
ifFalse: [(pins at: 8) output: true]. 

((pins at: 13) isHigh and: [(pins at: 12) isHigh]) 
ifTrue: [(pins at: 11) output: false] 
ifFalse: [(pins at: 11) output: true].! ! 


End Listing Four 


Listing Five 
output: aState 


"Generate aState as an output from the node." 


"State is stable" 
timer := 0. 
“self outputToConnections]. 
"State has changed" 
timer == 
ifTrue: [ 
"No delay in progress -- initiate prop delay" 
delay == 0 
ifTrue: [ 
"No delay -- just change state" 
ext := int] 
ifFalse: [ 
"Arm delay timer" 
timer := delay]. 
“self outputToConnections]. 
"Propagation delay in progress" 
timer := timer - l. 
timer == 
ifTrue: [ 
"Timer has expired -- update state" 
ext := int]. 
self outputToConnections. 


End Listing Five 


NOW IN C, PASCAL & MODULA 2 








APHICS LIBRA 
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Listing Six 
simulate 
"Simulate a 74LS00 device." 


((pins at: 1) isHigh and: [(pins at: 2) isHigh]) 
ifTrue: [(pins at: 3) output: false] 
ifFalse: [(pins at: 3) output: true]. 

((pins at: 4) isHigh and: [(pins at: 5) isHigh]) 
iffrue: [(pins at: 6) output: false] 
ifFalse: [(pins at: 6) output: true]. 

((pins at: 10) isHigh and: [(pins at: 9) isHigh]) 
ifTrue: [(pins at: 8) output: false] 
ifFalse: [(pins at: 8) output: true]. 

((pins at: 13) isHigh and: [(pins at: 12) isHigh]) 
ifTrue: [(pins at: 11) output: false] 
ifFalse: [(pins at: 11) output: true]. 
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The Best Way To Do Object-Oriented Programming: 


Visually. 


Most programmers conceive their object-oriented programs graphically, and 
then spend long hours turning their diagrams into code. 
A Better Way 


Now, from the developers of VP-Expert, the world’s best- 
selling expert systems building tool, comes ObjectVision. 





ObjectVision lets you build object-oriented programs visu- 
ally—by “drawing” your program’s objects, flow, interface, 
and even database connections on the screen. ObjectVision then automati- 
cally converts your diagram into commented, ready-to-compile code in C++ or 
Turbo Pascal 5.5. 
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Programming Visually 

Create a new object with a click of the mouse. Click the mouse again to attach 
properties to the object. Draw a line to connect one object to another. Draw 
a line to a DBase icon to inherit database information into an object. 


Design your program’s interface using predefined “interface 
objects” like switches and buttons, or build your own inter- 
face objects from scratch. 





And your program is functional as you drawit. As fast as you draw objects, you 
can test them out to see how they work. When you're all done, you can run 
your system inside ObjectVision, or have it converted to code in seconds. 


Who Needs It 
If you’re an experienced programmer who wants a dramatic boost in productivity, or if you’re 
a newcomer who wants to explore object-oriented programming without writing cryptic code, 
ObjectVision is essential. 
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$399 from ObjectVision, Inc. 

2124 Kittredge Street, Suite 118, Berkeley, CA 94704. 
Send $25 for demo disk. 

(415) 540-4889 


ObjectVision runs on IBM® PC and compatibles with at least 384 K, EGA or VGA montior, and mouse. 
Turbo Pascal is the registered trademark of Borland International. VP-Expert is a trademark of Paperback Software International. DBase is a trademark of Ashton-Tate. 
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OOPSLA '89: 
Fourth Down 
And Goal to Go 


s I walked through New Orleans’s 

colorful French Quarter one hot 

night in early October, a man 

caught my sleeve and offered to 
bet me five dollars that he could guess 
where I got my shoes. I declined his 
tempting offer, assuming that the an- 
swer was, ina shoe store. I was in town 
for the Fourth Annual Conference on 
object-oriented systems, languages, and 
applications (OOPSLA ’89), and the next 
morning as I sat listening to a panel 
discussion, it struck me that this was 
an object-oriented gag, deliberately con- 
fusing class with instance. Maybe OOPS 
is taking over the world. 


Talking About a Revolution 
It was easy to believe that there was 
an object-oriented revolution underway 
that day at the show. There was a lot 
of enthusiasm, and there were a lot of 
people. Although claims of 2000 atten- 
dees at last year’s OOPSLA may have 
been exaggerated, this year there prob- 
ably were about that many. The pre- 
registration and on-site registration at- 
tendee lists give 1626 names, by my 
count. In any case, the figures don’t 
reflect the mad rush when the exhibit 
doors opened Tuesday morning. Al- 
though they gave different reasons, ev- 
eryone I asked said that this OOPSLA 
was the best they’d been to. 

Some attendees had a greater pres- 
ence than most. Apple announced its 
C++ and talked around the edges of 


Michael Swaine 


Apple Script, its planned user program- 
ming language. Borland announced 
Turbo Pascal 5.5 with object-oriented 
support. But there was more interest 
in what might be coming in the next 
few months from Borland and from 
Microsoft, which was not present as 
an exhibitor, although a number of 
Microsoft employees were there. The 
biggest presence at OOPSLA ’89, 
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though, was definitely C++, already the 
most widely-used object-oriented lan- 
guage and spreading like — well, you 
can supply your own simile. Some peo- 
ple think C++ is a disease that we will 
all soon be required to contract. 

All the expected exhibitors were 
there: Digitalk, The Whitewater Group, 
and Interactive Software Engineering 
in the booth right in front of the en- 
trance. But there were few announce- 
ments of importance; this was an ACM 
conference, not Comdex, and the real 
action was in the presentations. 

The tutorials began the conference, 
and to a certain extent, they reflect the 
topics of greatest programmer interest 
or areas of greatest difficulty in OOP 
today, because they cover the topics 
that teachers of OOP are finding a de- 
mand for. Most of the tutorials were 
not specially created for the show but 
are classes that people in the field have 
been putting on over the past year. 

Jon Pugh of Carleton University set 
up the tutorials, which included intro- 
ductions to OOP concepts, MacApp, 
and C++, plus object-oriented issues 
in databases and concurrency. There 
were also tutorials evaluating OOP en- 
vironments, including NextStep, C++, 
Smalltalk, MacApp, and a portable C++ 
class library for Unix called “ET++,” 
along with more advanced tutorials on 
object-oriented analysis and design, pro- 
totyping, and managing object-oriented 
software projects. ET++ is likely to get 
a lot of attention, because there’s not 
much out there in the way of libraries 
for C++. 

After two days of tutorials, the con- 
ference proper began. The emphasis 
in the conference program shifted this 
year away from some peripheral issues 
such as general software engineering, 
user interface design, and databases, 
and toward more depth of coverage in 
theory, language design and implemen- 
tation, and concurrency. Conference 
Chair Kent Beck explained that the pe- 
ripheral areas were welcomed in the 





past because they would not have got 
a proper hearing in any other venue 
until recently. Now, though, object- 
oriented work is invading the general 
computer magazines and journals and 
other conferences, and OOPSLA could 
get more focused. 

The overall impression I got from 
the attendees, the exhibits, the tutori- 
als, and the conference program, was 
of a fringe thread in the process of 
being pulled up into the general fabric 
of software research and development. 

Except, of course, for the fact that 
there still does not seem to be a univer- 
sally accepted definition of object-ori- 
ented programming. 


Views from the Navel Observatory 

If you can believe Johnny Carson, some 
20 percent of the people in this country 
examine their belly buttons daily. A 
disproportionate number of these na- 
vel observers were at the Hyatt Re- 
gency in New Orleans the first week 
in October, asking themselves and each 
other what object-oriented program- 
ming is. To be fair, I should add that 
just as many people were answering 
the question as asking it; I just wish ] 
could say that they were giving the 
same answer. 

The answer involves some subset of 
these features, apparently: These data/ 
code hybrids called objects, object 
classes of which particular objects are 
instances, an inheritance mechanism 
defined on these classes, and the abil- 
ity to define new object classes. At least 
one language has been called object- 
oriented despite the lack of each of 
these features, although each has been 
put forth as necessary by one authority 
or another, and all at OOPSLA ’89. 

The keynote speech by Peter Wegner 
of Brown University was a proper ques- 
tion raiser and territory mapper. Wegner 
wrote the first book on Ada and got 
interested in object-oriented program- 
ming early on because of his percep- 
tion of Ada’s deficiencies as a language 
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for software engineering. In Wegner’s 
view, the goals of object-oriented pro- 
gramming are: Creating a technology 
of off-the-shelf software components, 
developing distributed national and in- 
ternational software libraries, and grow- 
ing to a capital-intensive software tech- 
nology in which one can buy rather 
than build. He also sees, as a present 
goal, the extending of OOP to encom- 
pass what he calls OOP in the large: 
Object-oriented systems supporting con- 
currency and persistent objects for mul- 
tiple computers and multiple users, and 
distributed data and cooperative com- 
puting. 

Not all the presentations followed 
Wegner’s map. 

One session described SELF, a dy- 
namically-typed object-oriented lan- 
guage. The authors, Craig Chambers, 
David Ungar, and Elgin Lee, all of Stan- 
ford, presented an object-oriented ap- 
proach that substitutes prototypes for 
classes. Although SELF has objects and 
inheritance, by Wegner’s criteria it is 
not object-oriented, because it has no 
classes. Objects are cloned from other 
(prototype) objects, from which they 
inherit behavior directly. In another ses- 
sion, Ungar predicted that prototype- 
based languages will ultimately replace 
class-based ones. 

Of more immediate interest than the 
implementation peculiarities of the SELF 
language, though, is the fact that SELF 
runs twice as fast as the fastest Small- 
talk implementation, even though SELF 
is inherently less efficient than Small- 
talk. The authors have optimized SELF 
with techniques applicable (but not yet 
applied) to any other object-oriented 
language, and have not had to hard- 
wire any user-level operations into the 
compiler, as some researchers have 
done with Smalltalk implementations. 
They bluntly say “researchers seeking 
to improve performance should improve 
their compilers instead of compromising 
their languages.” 

That could be the answer to one of 
the other nagging issues in object- 
oriented programming: Can an OOP 
system provide the strong typing needed 
for software engineering and at the 
same time remain a good system for 
rapid prototyping? Those of a software 
engineering bent and those who like 
OOPS for rapid prototyping both like 
inheritance, but seem to use it for dif- 
ferent purposes. The differences revolve 
around type checking and the relation- 
ship between types and classes. Panel- 
ists in One session argued that types 
and classes are really orthogonal and 
should not be confused; and that pro- 
gramming environments could be, but 
are not, constructed to support both 
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production and exploratory program- 
ming. But one dissenter, David Stem- 
pel of the University of Massachusetts, 
said that the only way that one envi- 
ronment can support both styles of pro- 
gramming is by really being two envi- 
ronments, with a switch to turn off 
prototyping features when in produc- 
tion mode. 

Several talks dealt with the teaching 
of OOP concepts. The simplest tech- 
nique presented was in some ways the 
most intriguing. Kent Beck of Apple 
and Ward Cunningham of Wyatt Soft- 
ware Services presented an index-card- 
based approach they have been using 


to teach OOP. The approach involves 
representing objects with 3 x 5 index 
cards, and placing the cards in appro- 
priate physical relationship to one an- 
other. A card contains three kinds of 
information about the object: Its class 
name, its responsibilities (problems it 
is to solve), and its collaborators (what 
other classes it messages or is mes- 
saged by), presumably written in pen- 
cil for easy modification. This simple 
technique apparently underscores the 
objectness of the objects, and the 
authors report students picking the cards 
up and waving them around to dem- 
onstrate their interaction. 
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MODULA-2 


PMI was the first company to specialize 
entirely in publishing M2 libraries. Four 
years later, we’re still doing it. 


* PowerSTOR™: By Bill Craft. Virtual heap 
manager, uses any combination of expanded, 
extended, and disk 


SOPICE scapes 93 oe ewer sees nee ss ] 89 


* EmsStorage™. By Charles Bradford and Cole 
Brecheen. Primitive EMS systems can’t allocate 
chunks smaller than 16K; EmsStorage is a handle- 
oriented, high-level subsystem that manages ob- 
jects as small as 1 byte. Provides automatic gar- 
bage collection. Includes full 


SOUICE COdE 4.kk bss oes ae 8545. 4h ae eaeee ‘89 


%  Repertoire®: By Charles Bradford and Cole 
Brecheen. A massive general-purpose _ toolkit. 
Includes unusually powerful screen design/display 
system patterned after Windows/PM; sophisticated 
list-oriented DBMS; text editor; natural language 
analyzer; hundreds of string handling routines; full 
source; and thoroughly indexed 400p 


pos:....... "149. os... 189 


* Graphix: The Modula-2 interface to the remarkable 
MetaWindow graphics library. Supports multiple 
fonts, mouse tracking, many printers, over 30 
display adapters, and hundreds of modes.Includes 
MetaWindow package and 


source for interface. . 1.0.0... 6 cece wees ] 89 


* Graphix Plus: The Modula-2 interface to Meta- 


% ModBase: By Donald Fletcher & John McMona- 
gle. A B-Tree DBMS that uses a file format com- 
patible with dBase II] & IV; both index and data 
files are now compatible. Release 2.2 is four times 
faster than before and includes 
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*  Repertoire® /Btrieve® Toolkit: By Gregory 
Higgins. Novell/SoftCraft’s Btrieve file manager is 
the standard for large business applications. R/BT 
lets you build Btrieve applications with Reper- 
toire’s screen system. Includes all of Repertoire’s 
object code (but not its source) and 
full source for R/BT modules........... ] 49 


* NetMod™: By Donald Dumitru. Makes it easy to 
take advantage of Novell’s NetWare operating 
system for local-area petworks. Provides simple, 
efficient access to every important function of 
Advanced NetWare. Includes thorough documen- 
tation and full 
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* EEv™, By James Bones. An easy to use equation 
evaluator. It parses and calculates the values of 


algebraic equations. Supports over 
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PROGRAMMING PARADIGMS 


Getting Software Engineering on the Track 
There’s not even agreement that soft- 
ware engineering is the goal of OOP, 
although many people not only be- 
lieve it to be the goal but even speak 
as though there were such agreement. 

The early afternoon of the first day 
of the program was given over to soft- 
ware engineering papers and a panel 
on the more-or-less SE-oriented topic 
of the role of transactions in object- 
oriented systems. A couple of other 
panel discussions directly addressed soft- 
ware engineering concerns as well, in- 
cluding a discussion moderated by Brad 
Cox on the software industrial revolu- 
tion. Cox was of the opinion that the 
revolution will need more than inter- 
changeable parts—itll also need 
gauges or templates to ensure that the 
parts fit. He stressed the importance of 
developing the gauges apart from the 
parts they test — possibly even employ- 
ing a different technology to develop 
them. 

There was one field report from pio- 
neers trying to build a full software 
development environment using object- 
oriented technology. William Harrison, 
John Shilling, and Peter Sweeney de- 
scribed their system, which runs on a 
PS/2 under OS/2, an RT/PC under AIX, 
and even an AT under MS-DOS in 640K 
RAM. (Two of them work for IBM.) The 
system has a persistent object store — 
the object-oriented version of a file sys- 
tem. With some 200,000 objects in their 
store, the authors have some experience 
with the use of objects, and it is sugges- 
tive that they found that organizing 
objects by type hierarchy did not work 
well, because their actual use of ob- 
jects did not reflect a type hierarchy. 
They found some serious hurdles, too, 
and concluded that the object-oriented 
paradigm needs some extensions if it 
is to be used for things such as version 
control, and that the paradigm currently 
does not provide the necessary sup- 
port for modifying and extending the 
paradigm itself. 

Lt. Col. John Morrison of the Na- 
tional Test Bed spoke briefly of one of 
the more ambitious software projects 
to date: The Strategic Defense Initia- 
tive. Whether one thinks SDI is a bril- 
liant and achievable project or a fast 
one put over on a gullible chief execu- 
tive, SDI research should be a remark- 
able testbed for software engineering 
and reusable components. One of the 
elements is intended to be a large na- 
tional library of reusable software com- 
ponents. 


Real Applications 
Others discussed how they were using 
object-oriented technology for real ap- 








plications in commercial software de- 
velopment, CAE/CAD, and scientific com- 
puting. 

Aldus personnel discussed how they 
are using object-oriented techniques 
to manage software development in 
expanding teams of developers in the 
face of competitive pressure to deliver. 
The Aldus VAMP system has helped 
them isolate the developer from differ- 
ences in Macintosh and Windows event- 
dispatching, for example. 

There were several presentations on 
business applications. Two that seemed 
significant were an implementation of 
security in an object-oriented system 
at MCC, and a language developed at 
GE Corporate R&D and Calma. The 
MCC system implemented security lev- 
els from Unclassified through Confi- 
dential and Secret to Top Secret, more 
than the average business requires, one 
would think, but it was classified as a 
business presentation. The system from 
Calma and GE, called DSM, is designed 
for commercial CAE/CAD applications. 
DSM supports most of the features ex- 
pected in an object-oriented language 
and is reported to be nearly as efficient 
as writing straight C code. The only 
explanation offered for this remarkable 
performance was that DSM trades mem- 
ory for speed. 

Papers on scientific computing came 
from three distinct object-oriented back- 
grounds: CLOS (the Common Lisp Ob- 
ject System), Smalltalk, and C++. Be- 
sides talks on systems for function mini- 
mization, automatic differentiation, and 
linear algebra, there was an interesting 
discussion of scientific prototyping. I 
guess what I found most interesting 
about it was the realization that the 
ability to construct 3-D computer mod- 
els of objects and processes and to 
manipulate the models has become an 
essential tool of scientific research. San- 
dra Walther and Richard Peskin pre- 
sented a Smalltalk-based scientific pro- 
totyping environment that uses C primi- 
tives for efficiency. 

Is OOP seeing real use in embedded 
systems development? Design? Im- 
plementation? And does it have a fu- 
ture there? The one case study of em- 
bedded system development presented 
at the conference suggests what one 
might expect: OOP was a good tool for 
managing the development process and 
coming up with the basic design in a 
short time, but the actual implementa- 
tion required substantial recoding in C 
and assembler. 


The State Space of the Art 

Any description of the state-of-the-art 
in any developing field always sounds 
wrong to some part of the audience. 
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What looks close to SOA to one person 
may be SF to another. To traditional 
DP professionals it may be a non-issue: 
Bill Joy said he did not consider tradi- 
tional DP professionals a market for 
OOP because they would not under- 
stand it. Later, being fair, he added that 
he’d say the same about most C pro- 
grammers. 

Bill Joy said that, not me. My only 
point is that the state-of-the-art has thick- 
ness; it’s not so much a time slice as a 
time loaf. At OOPSLA ’89 there were 
SOA talks on theory, and SOA talks at 
the implementation level. 

A couple of the implementation is- 
sues on the edge are efficient garbage 
collection and how to implement per- 
sistent objects and virtual memory for 
objects. One of the concepts being use- 
fully employed in garbage collection 
is the notion of a generation: Several 
Systems separate objects by age, focus- 
ing garbage collection on the youngest 
generation, where turnover is likely to 
be most rapid. 

One of the more interesting theoreti- 
cal papers showed that inheritance, 
rather than being merely a feature of 
object-oriented programming, is a gen- 
eral method that can be applied to any 
form of recursive definition. 

Some presentations were state-of-the- 
art in any sense, focusing on concepts 
on the edge, such concurrency, agents, 
and reflection. 

Object-oriented programming decom- 
poses problems in ways nicely suited 
to communicating processes in a paral- 
lel architecture. The conference dem- 
onstrated that there are real implemen- 
tations of OOP systems that imple- 
ment fine-grained parallelism, although 
they probably won’t run on your ma- 
chine yet. 

Several talks dealt with agents that 
may turn out to be important for mak- 
ing sharable, reusable software com- 
ponents work in practice in widely dis- 
tributed systems. Agents are indepen- 
dently executing entities sensitive to 
particular stimuli. Such entities could 
be trained to search libraries for the 
software components needed. In 
“Swaine’s Flames” I speculate about 
the economic consequences of such a 
system, but the need for some method 
of automating the search for software 
components seems clear. If one of the 
goals of object-oriented programming 
is reusability, and if objects are going 
to multiply as fast as some of the pres- 
entations at the conference suggest, auto- 
mating the process of connecting the 
component with the person who needs 
it will be essential. 

Reflection is the ability of a system 
to represent and reason about itself. It 
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turns out to be relatively easy to imple- 
ment some form of reflection in Small- 
talk and some other OOP languages. 
The benefits discussed at the confer- 
ence include modifying the behavior 
of the system, monitoring entities of 
the system, and self reorganization (learn- 
ing). Formerly viewed as an academic 
topic, reflection is beginning to be con- 
sidered for practical implementations. 
One presentation discussed a way of 
implementing many of the benefits of 
full reflection with no cost in efficiency. 

Maybe reflective programs could de- 
bug themselves. That would be handy. 

During one of the panel discussions, 


Se 


Bjarne Stroustrup, humble developer 
of an arrogant language, told the audi- 
ence that anyone claiming that object- 
oriented programming will bring about 
bug-free software was probably spend- 
ing his evenings in the French Quarter 
guessing where people got their shoes. 
I didn’t notice if Lt. Col. Morrison 
laughed. 
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C PROGRAMMING 


Text Searching, C++ 
and OOPS, and 
ANSI Strings 


his month we are going to start 

a new “C Programming” column 

project. We are going to examine 

some of the problems associated 
with the maintenance of large text data 
bases. You might be familiar with the 
problem. You have a lot of reference 
material and you do not always know 
how to find what you are looking for. 
Sometimes the reference material is 
stored in text files. If you keep a lot of 
word processing files at work, or if you 
download a lot of software with .DOC 
or READ.ME files, your material is stored 
somewhere in ASCII text and would 
be ready to be read if only you could 
find it. Our new project will address 
the problems associated with locating 
the text files that have the information 
we need. 

Someday everyone will have Optical 
Character Recognition scanners, and 
we will store all our books and maga- 
zines on disk. Maybe the magazines 
will begin to sell their editorial content 
on diskettes or CD-ROM as well. When 
that happens, then all our reference 
works will be ready for treatment by a 
document processor similar to the one 
we will build here in this column. 

There are a number of software pack- 
ages that do what we will build here. 
Most CD-ROM distributions of large text 
data bases include such a system. We 
will build our own. That way each of 


Al Stevens 


us can customize it to our specific re- 
quirements. This software will be ge- 
neric standard C. If you want to inte- 
grate it into a particular user platform, 
it should port with little difficulty. Our 
project will build a system that we will 
call TEXTSRCH. 

There are a number of disciplines 
that we must address in the develop- 
ment of such a project. First, we must 
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ask, given a large text data base and 
someone to search it, how does the 
search proceed? What are the search 
criteria and how will we express them 
to the software? These are the first re- 
quirements to consider, because they 
will determine what techniques we use 
to store and find things. Next, once 
we identify files of text that match our 
search criteria, how must the system 
present them to us? 


The TEXTSRCH Data Base 

A document retrieval system such as 
TEXTSRCH works best in an environ- 
ment where the data files are static. 
There is a lot of text and it does not 
change much. Users control changes 
with addendum or replacement docu- 
ments at scheduled intervals. Typical 
applications are engineering specifica- 
tions, maintenance manuals, and refer- 
ence libraries. 

To build the data base, you collect 
the documents in a controlled location, 
perhaps its own subdirectory, and then 
you build an index. The index sup- 
ports searches. Some systems require 
you to manually examine every docu- 
ment and mark all the phrases that will 
appear in the index. Others build the 
index by automatically scanning the 
text and extracting words. We will use 
this second approach. 

You want to use this kind of system 
on a static data base because the index- 
ing operation can take a long time. 


Retrievals 

With the data base in place and the 
index built, you are ready to perform 
retrievals. Let’s first discuss how such 
searches will proceed. Someone will 
want to find all references to a word 
or phrase in the data base. Perhaps you 
will want every reference to the phrase, 
“object-oriented programming.” You 
must tell the system what you want, 
and it must tell you where you can find 





those references. But suppose you are 
interested only in references to OOP 
that are specifically about Smalltalk. 
Then you might want your search to 
deliver only those files where both key 
phrases appear. Another search might 
want to specifically exclude references 
to C++, and so you must be able to tell 
the system about that requirement as 
well. 


Queries 

You can see where we are heading. It 
is apparent at the outset that we need 
some form of structured query language 
with Boolean operators. We need to 
be able to parse an expression such as 
this one: 


“object oriented” and “smalltalk” but 
not “C++” 


Our expressions will have operators 
with precedence, so we will need to 
use parentheses to override the default 
precedence assigned by the parser, mak- 
ing an expression such as this one pos- 
sible: 


“object oriented” and (‘design” or 
“programming” ) 


The TEXTSRCH Expression Analyzer 
All of what just preceded leads us to 
our first installment. The first set of 
functions that we will develop will parse 
such query expressions and prepare 
them for a retrieval pass at the data 
base. Listing One, page 104, is textsrch.h. 
This listing is one that will grow over 
the months. As we add features, we 
will add macros, prototypes, and such 
to textsrch.h. This month it contains 
what we need for expression analysis. 
Listing Two, page 104, is express.c, 
the code that parses our expressions. It 
begins with a modified BNF that de- 
scribes the query language. As you can 
see, it isn’t very complex. A program 
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(continued from page 144) 
that wants to parse an expression calls 
the lexical_scan function in this mod- 
ule. The function returns a NULL if it 
finds an error. If the expression is cor- 
rect, the function returns a pointer to 
the parsed expression, which is repre- 
sented in the form of tokens suitable for 
processing by an expression interpreter. 

The lexical_scan function calls the 
expression function to check the ex- 
pression for syntax and to convert it 
into tokens. The syntax check uses a 
recursive descent parser. That is, if the 
expression function finds a left paren- 
theses in the stream, it calls itself to 
validate the expression that is in paren- 
theses, and then, when it returns, it 
expects to find a right parenthesis. If it 
finds the unary NOT operator, it calls 
itself to check the expression that fol- 
lows the operator. If it finds a word or 
phrase — a phrase in our context con- 
sists of a group of words surrounded 
by double quotes — it looks at the next 
element in the expression. If that ele- 
ment is the binary AND or OR opera- 
tor, the expression function calls itself 
to check the expression to the right of 
the operator. 

While validating the expression, the 


on Window Portability with CURSES 
and FORMATION for UNIX, DOS, OS/2 


and VMS. 


CURSES: The library for C developers who want 


program converts it into tokens. Each 
language element is a one-character 
token, and the tokens are written into 
an array in the order in which they 
occur. When the token is a word or 
phrase, which is assigned the OPER- 
AND token, an associated string con- 
tains the value of the word or phrase. 

After the expression is found to be 
correct and the tokens are built, the 
lexical_scan function calls the postfix 
function. Its purpose is to convert the 
token stream from infix notation to 
postfix notation. An expression in infix 
notation uses defined operator prece- 
dence with parentheses to override the 
defaults. This is the notation we use 
when we compose the query. It is also 
the notation used by the C language. 
The postfix notation (also called Re- 
verse Polish Notation) eliminates the 
parentheses and represents precedence 
by the proximity of tokens to one an- 
other. Users of SNOBOL, Forth, and TI 
scientific calculators will recognize the 
notation. 

An infix expression places a binary 
operator between the operands as 
shown here: 


this and that 


The postfix version of this expression 
pushes the operands on a stack fol- 
lowed by the operator as shown here: 


<and> 
that 
this 


(In these examples, I’ve used the angle 
brackets to set operators apart from the 
operands on the stack.) 

A parenthesized infix expression 
such as this: 


(this and that) or what 


is represented on the postfix stack this 
way: 


<or> 
what 
<and> 
that 
this 


Evaluation of a postfix expression is 
a stack operation. The top element is 
popped. If the element is an operand, 
we use the operand to derive the value 
of the expression. If the element is a 
unary operator, the next element is 
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popped and evaluated, the unary op- 
erator is applied to it, and the result is 
pushed. If the element is a binary op- 
erator, the next two operators are 
popped, the binary operator is applied 
to them, and the result is pushed. Then 
the procedure repeats until the ele- 
ment popped is a single result. Each 
pop is a recursive repeat of the entire 
procedure. In our case the pushed re- 


Object-oriented design 
involves building base 
classes and derived 
classes in a class 

hierarchy - 


sults are true or false values within the — 


data base document depending on the 
search results. Each time we pop a 
word or phrase, we see if it is in the 
data base and, if so, in which files. The 
result of that search is pushed. We'll 
get further into the details of expres- 
sion evaluation next month. 

Conversion from infix notation to 
postfix notation is a simple matter. The 
procedure is described in detail in Fun- 
damentals of Data Structures, Horo- 
witz and Sahni, 1976, Computer Sci- 
ence Press, on pages 91-97. We im- 
plement this procedure in the func- 
tions postfix, isp, icp, and poststack. 

Listing Three, page 167, is testexpr.c, 
a program to test our expression ana- 
lyzer and display the results. It is a 
throwaway program not to be used in 
the project beyond its purpose as a test 
and demonstration tool. You type your 
expression into the gets function. Use 
words and phrases with interspersed 
operators. The valid operators are AND, 
OR, and NOT. The purpose of the query 
is tO express a pattern of words and 
phrases that do or do not appear in the 
text data base. The TEXTSRCH pro- 
gram will find files that match the query 
_ expression. Typical expressions are 
these: 


(fortran or cobol) and not pascal 
fortran or (cobol and not pascal) 


The testexpr program will report a syn- 
tax error by displaying a pointer sym- 
bol below the expression element 
where it found the error. If the expres- 
sion is correct, the program will display 
the postfix stack in this format: 
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Enter the search expression: 
fortran or (cobol and not pascal) 


Token 


<or> 
<and> 
<not> 
pascal 
cobol 
fortran 


Enter the search expression: 


Press the Enter key with no expression 
to terminate the program. Next month 
we'll discuss how we will index the 
data base and how that index will de- 
liver our query results. 


Book Report: Object-Oriented Program 
Design With Examples in C++ 

Are you looking for a stocking stuffer 
for yourself this season? There is a new 
book called Object-Oriented Program 
Design With Examples in C++, by Mark 


‘Mullins. The book is more about object- 


oriented programming and design than 
about C++, but it uses C++ for exam- 
ples and is an indispensable addition 
to your library if you are trying to figure 
outOOP andC++. © | 

Mullin takes a unique approach to 
these subjects. Instead of presenting 
just another enhancement to the AT&T 
C++ reference documents and Strous- 
trup’s book, he teaches the basics of 
object-oriented design and uses C++ 
to demonstrate the lessons. Follow this 
book from beginning to end, and you 
will have a manageable grasp on object- 
oriented design and programming by 
the time you’re done. 

Mullin’s book also teaches valuable 
lessons about the general approach a 
programmer uses in the design of soft- 
ware systems, object oriented or not, 
and he does it with a writing style that 
informs and often entertains the reader. 
Every now and then he slips in a dry 
joke that goes by almost unnoticed. 

To show you how to design an object- 
oriented system, Mullin undertakes the 
development of an integrated informa- 
tion management system for a fictional 
company. This is the first extensive 
treatment of OOP I’ve seen that uses 
real, believable examples of things that 
a programmer might encounter in the 
real world. Most writers build contrived 
analogies that attempt to relate abstract 
examples of toasters, fruit, or other silly 
non-automata to the mysterious things 
that the object-oriented paradigm calls 
objects. Mullin uses inventory, sales 
and personnel database records to dem- 
onstrate the development of a class 
hierarchy to support his hypothetical 





WKS Library lets you use C 
or BASIC to access data 
from hundreds of programs. 


The WKS Library is the first program- 
ming library to provide fast and reliable 
access to worksheet and dBASE file for- 
mats. It offers easy interchange of infor- 
mation and formulas between programs. 
Cell values, macros, range-names, 
column widths, global defaults, formulas, 
database files, etc. are all accessible. 
With WKS Library, you can access and 
create your own worksheets and database 
files in less than one day! You'll save 
months of development time. 


Now your applications can be compat- 
ible with programs used by millions of 
people! It’s easy with Raima's WKS 
Library. Call : 


1-800-db-RAIMA 
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WKS LIBRARY 


e Reads & Writes DBF, WKS, 
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design. These are things we can all 
associate with. 

Perhaps you’ve never worked on an 
inventory system, but you can readily 
see what one might need to do. If there 
is a warehouse full of stuff and you 
need to locate specific items, fill orders 
for items, and replace what you sell, 
then you need an inventory system. 
I’ve worked on several. The smallest 
was for a video tape store; the largest 
was for spare parts for the Space Shut- 
tle. Their respective functional require- 
ments were similar. The inventory man- 
agement folks call it “material require- 
ments planning.” George Carlin calls it 
“keeping track of your stuff.” Mullin 
takes this mundane application, one 


that everyone will recognize, and de- 
signs an object-oriented software sys- 
tem to support it. 

Mullin traces the design in the man- 
ner in which it might actually occur. 
The false starts, the refinement of re- 
quirements, the incremental develop- 
ment of an object-oriented data model, 
he presents them all in the sequence 
in which you would encounter them 
during a real-design project. As he pro- 
ceeds, Mullin tells you how you should 
be thinking about the objects and their 
place in the class hierarchy. 

Mullin’s design sometimes tends to 
build his data base by using views that 
seem — at least to me — to be unnatu- 
ral. Object-oriented design involves build- 
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ASPIRIN 


The C-Programmer's Pain Reliever 


* C Programs giving you headaches? 
6 * Tired of having to rewrite code to fit 
On o Into your latest programs? 
g * Wish you could avoid the hassle of 
trying to use four different libraries? 


We all know that the standard C library just doesn't cut it In 
today's market of fast, user-friendly programs. We also 
know that trying to link together 3 or 4 different add-on 
libraries is often more of a headache than it is worth. 


There is a solution. ASPIRIN, the new package from 


Arrowhead Software, eliminates those aches and pains 
at a price that won't hurt your wallet! 













* ISAM database package 
* Text manipulation 

* C-code generator 

* Linked - lists 

* Mouse handling 

* Date and time functions 





ASPIRIN is not just another forms/windows package. You'll 
have all these capabilities at your fingertips, plus many other 
time-saving features: 





* Windows 

* Forms 

* Menus 

* Utility programs 
* Step-by-step user's guide 
* 300 page technical guide 


How ASPIRIN Stacks Up 


VitaminC __C-Scape 
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Forms 
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Vermont Greenleaf C Worth ASPIRIN 


7500 W. Mississippi, Ste. 201 
Lakewood, CO 80226 
(303) 922- 1300 


CALL TODAY AND WE'LL MAIL A FREE DEMO DISK WITHIN 24 HOURS. 
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ing base classes and derived classes in 
a class hierarchy. Because every entity 
in his data base has a name and ad- 
dress, Mullin starts out with a new class 
named “Entity” that contains name and 
address members. Then he derives ev- 
erything else from that class. This is 
not the natural view of things. We are 
not necessarily always subordinate to 
our common denominators. Because 


If KER can give us 
“initializer,’’ I guess 
X3/11 similarly pre- 
sumed that they could 
extend English while 
they extended C 


we all have addresses does not mean 
that we are subordinate to those ad- 
dresses. I think we are seeing the ten- 
dency of the object-oriented paradigm 
to bend our perspective in inappropri- 
ate directions. The solution to a prob- 
lem should resemble the problem, and 
names and addresses are components 
of their owners, not the other way 
around. I would have created the En- 
tity class with its name and address 
members and then included an instance 
of that class in each of the classes that 
require it. The functional result would 
be the same but we would not be forced 
to perceive our data base from an il- 
logical perspective just to adhere to 
hierarchical dogma. But then, I do not 
know enough about object-oriented de- 
sign to write a book. Not yet, at least. 
My only other criticism of this book 
is that Mullin and his editors do not 
seem to know that the word “data” is 
a plural noun. But then, many of my 
colleagues here at DD/ don’t know that 
either, and I forget sometimes, too. That 
criticism aside, this is a very good book. 
OOP and C++ have been begging for 
literary treatments this good, and I’m 
happy to see it finally happening. 


The ANSI Corner: Preprocessing and 
Strings 

The ANSI standard C specification has 
introduced something the committee 
calls “stringizing,” not a real word, an 
abomination actually, but a new con- 
cept in preprocessing, nonetheless. (If 
K&R can give us “initializer,” also not 
a word, I guess X3J11 similarly pre- 
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‘Do you know what the underground bargain C compiler of this year is? It’s 
the Mix Power C compiler. For under $25 with shipping, it is one heck of a 
good compiler.’ 


Victor Schneider 
Dr. Dobb’s Journal, June 88 (Letter to the editor) 


‘“‘Overall, Power C’s performance is remarkable for the price. Quite 
compatible with the Microsoft C and Turbo C ‘‘standards’’, Power C is a 
heavyweight contender in the educational, hobbyist, and perhaps even the 
professional market — at a bantamweight price.’’ 


Stephen Davis 
PC Magazine, September 13, 88 (Review) 


‘‘Power C is an unbelievable product for $19.95, and is very competitive with 
Turbo C, Microsoft C, and Microsoft's new Quick C in both features and 
performance. It is excellent for the beginner who wants to learn C, or for the 
experienced programmer who wants to develop professional applications. The 
manual alone is worth the price of this package, and the generous library 
source code and assembler offer adds to the value of it. If you have any 
desire to program in C, or want a more powerful C compiler, get a copy of 
Power C!’ 


Michael Cortese 
Computer Shopper, August 88 (Review) 


“The Ctrace debugger is where Mix really shines. It is magnificent. It’s not 

only better than the stripped down debugger Microsoft includes with Quick C, 
it’s better than the full debugger Microsoft provides with its high-end 
compiler (Codeview).’’ , 


David Weinberger 
Computer Shopper, November 88 (Review) 
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Technical Specifications 
Power C includes: Power C compiler with integrated Make, 
Power C Linker, Power C Libraries (450 functions), the Power 
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rder now by calling our toll free 
number or mail the coupon to 

’ Mix Software, 1132 Commerce 
Drive, Richardson, TX 75081. 


1-800-333-0330 


For technical support call: 1-214-783-6001 


Minimum System Requirements: 


DOS 2.0 or later, 320K memory, 2 floppy drives or hard drive. 


Runs on IBM PC, XT, AT, PS/2 and compatibles. 
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(continued from page 148) 
sumed that they could extend English 
while they extended C.) 

The trouble with the ANSI document 
is that it often fails to provide any basis 
for a particular extension to classic C. 
In too many cases the committee leaves 
it to us to figure out why they included 
a particular feature. They will describe 
the feature and perhaps provide exam- 
ples of how a conforming compiler 
must behave, but they do not adequately 
provide the motive behind it all. The 
rationale document that accompanies 
the specification is supposed to fill these 
information gaps but too often it does 
not or tries and fails. Such is the case 
with the preprocessor’s # Operator on 
#define macro parameter substitutions, 
the so-called “stringizing” feature. They 
tried to explain it, but I do not under- 
stand the explanation. If you do not 
already know how you might use the 
# feature, you might not be able to 


| guess its purpose from the description 


in the specification even when you 
know what it does. What we can do is 
look at what it does and see if this 
solution solves some problem we might 
have. The # operator turns a parameter 
into a string. That’s all it does. Here is 
an example: 


#define str(x) # x 
printf(strCHELLO)); 


This macro expands the hello parame- 
ter into a string so that the printf call 
looks like this after the substitution: 


printf(‘HELLO”’); 


The preprocessor performs any other 
translations on the parameters before 
it builds the string as shown here: 


#define HELLO goodbye 
#define str(x) # x 
printf(strCHELLO)); 


This sequence converts to this: 
printf(‘“goodbye’”’); 


Why would you want to do any of that? 
If you know you want HELLO to be 
“HELLO” or goodbye to be “goodbye,” 
why not just code it that way in the first 
place? Let’s try to dream up a circum- 
stance where this feature might have 
some use. One possibility that comes 
to mind is in the realm of debugging. 
You can use the # operator to create a 
TRACE macro that traces selected ex- 
pressions in your program on the con- 
sole. You can turn the TRACE on and 
off with a global compile-time variable. 
Here is the macro: 


#ifdef DEBUGGING 

#define TRACE(x) (printf(‘\n” # x),Cx)) 
#else 

#define TRACE(x) (x) 
#endif 


Suppose your program has an expres- 
sion that you want to trace on the con- 
sole. If this is the expression: 


b = strlen (“12345”); 


To trace this expression, you can re- 
code it with the TRACE macro like this: 


b = TRACK(strlen (‘12345”)); 


Now whenever the expression is exe- 
cuted with the DEBUGGING global vari- 
able defined, the expression’s code is 
displayed on the console, as well as 
being evaluated because the statement 
is preprocessed to this sequence: 


b = (printfC‘\ n” “strlen (\ “12345 \”)”), 
(strlen(‘12345”))); 


Notice that the two components of 
the macro expansion, the printf and 
the strlen calls are comma separated. 
This guarantees that the strlen, which 
is the rightmost expression, returns the 
value required when the expression is 
evaluated. Notice also that the two are 
surrounded by parentheses. If they were 
not, we would get the wrong value in 
the “‘b” integer because the assignment 
operator has a higher precedence than 
the comma operator. 

Next month the ANSI Corner will 
explore the #* token pasting operator. 
We will, that is, if I can figure out a 
useful application for token pasting. 


Availability 

All source code is available on a single 
disk and online. To order the disk, 
send $14.95 (Calif. residents add sales 
tax) to Dr. Dobb’s Journal, 501 Galves- 
ton Dr., Redwood City, CA 94063, or 
call 800 -356 -2002 (from inside Calif.) 
or 800 -533- 4372 (from outside Calif.). 
Please specify the issue number and 
format (MS-DOS, Macintosh, Kaypro). 
Source code is also available online 
through the DD/ Forum on Compu- 
Serve (type GO DDJ). The DD] Listing 
Service (603-882-1599) supports 300/ 
1200/2400 baud, 8-data bits, no parity, 
1-stop bit. Press SPACEBAR when the 
system answers, type: listings dower- 
case) at the log-in prompt. 


DDJ 
(Listings begin on page 164.) 
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Find out what Stony Brook's fully optimiz- 
ing compiler can do for you. You can use 
Modula-2 for all your development 
requirements or you can link with any 
other language that produces Microsoft 
object modules. You can engineer the 
fastest and smallest program possible 
taking advantage of our highly optimized 
code generation. You can compile your 
applications for DOS and OS/2 with no 
changes in the source code. You can 
outperform the competition. You can do 
more than you ever could before. 


The Professional Modula-2 package 
includes an editor, intelligent linker, sym- 
bolic debugger, execution profiler, and an 
automatic make facility. All these functions 
can be performed from the fully inte- 
grated environment or as separate 
command line utilities. 


© 1989 Gogesch Micro Systems, Inc. 


Professional Modula-2 Compiler... 
Just think what the two of you can 


We also include the best runtime library in 
the industry, interface libraries for Micro- 
soft Windows, presentation manager, and 
QuickMod high productivity environ- 
ments for DOS and OS/2. All for $295. 


The source code for the runtime library is 
available as an option for those who need 
it. You can also purchase the QuickMod 
environment, in DOS or OS/2, without 
the optimizing capabilities for $95. 


Stony Brook—we design our products 
specifically to improve developer perfor- 
mance. And we know software engineer- 
ing. Put us #0 work for you. 


Call us direct and we'll mail product 
information to you within 24 hours. 


800/624-7487 
805/ 496-583 eralncr nacional 
805/496-7429 -.. 
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he C-scape™ Interface 

Management System frees C 
programmers from the tedium of 
coding windows, menus, data 
validation, help, and text editing 
functions. 


Moreover, C-scape is a joy to use. With 
C-scape’s object-oriented design, you'll 
build more functional, more flexible, 
more portable, and more unique 
applications—and you'll have more fun 
doing it. 


The industry standout. Many 
thousands of programmers have quit 
home-grown libraries and cumbersome, 
inflexible products for the pleasure of 
C-scape. The press agrees: “C-scape is by 
far the best ... a joy to use,” wrote [EEE 
Computer. PC Magazine chose C-scape 
to produce its Laboratory Benchmark 
Series 5.0 software because 
C-scape offers mouse 
support. Moreover, C-scape 
simultaneously combines 
text and graphics. And because C-scape 
makes it easy to create your own custom 
routines, major companies have selected 
C-scape as a standard for software 
development. 


C-scape is built around an open 
architecture, so you can use it with data 
base management or other C libraries. 


C-scape Features 


Graphics. Combine high-resolution color graphics 
with text or menus. 


Object-oriented. Add features and create 
reusable code modules. 


Mouse. Use any standard mouse for fast screen 
control. 


Portability. Write hardware independent code. 
Supports DOS, 0S/2, UNIX, others. Autodetects 
Hercules, CGA, EGA, VGA. 


Text editing. Create a full-featured text editor or 
pop-up note pad. 


Field flexibility. Create masked, protected and 
marked fields with complete data validation. Use 
time, date, money, pop-up list, and many more 
functions, or create your own. 


Windows. Choose from pop-up, tiled, bordered 
and exploding windows, with size and numbers 
limited only by RAM. 


Menus. Choose from pop-up, pull-down, 123-style, 
or slug menus, or create your own. 


Context-sensitive help. Link help messages to 
individual screens or fields. Cross reference 
messages to create hypertext-like help. 


Screen design. Build any type of screen or form 
with the Look and Feel™ Screen Designer, then 
automatically convert it to C. 


Screen flexibility. Call screens from files at 
run time or link them in. 


e joy of C-scape 


And to port from MS-DOS or 0S/2 to 
UNIX, just recompile. 


Trial with a smile. C-scape is not 
only the most sophisticated, flexible and 
powerful interface system available, it’s 
also the most friendly—and easiest to 
use. Try C-scape on a 30-day trial. It 
comes with a thorough manual, demo 
disk, sample programs with 
source code, an optional 
screen designer and code 
generator, access to a 
24-hour bulletin board, and toll-free 
support. No royalties, runtime licenses, or 
runtime modules. After you register, you 
get complete library source code at no 
extra cost. 


Call 800-233-3733 (617-491-7311 


in Mass.) to try C-scape now. After the 
joy of C-scape, programming will never be 
the same. 


MS-DOS, 0S/2: $299, library only; with 
Look & Feel, $399. UNIX, XENIX, Apollo, 
Sun, Stratus, others please call. 
Mastercard and Visa accepted. 


Oakland Group, Inc. 675 Massachusetts Ave., Cambridge, MA 02139 USA. FAX: 617-868-4440; Washington 206-746-8767; Benelux (02159)46814; Denmark 

(02)88 72 49; France (1)46 09 28 28; Germany/Austria/Switzerland (49)07127/5244; Norway (02)44 88 55; Sweden (013)124780; U.K. (0992)500919. C-scape and 
Look & Feel are trademarks of Oakland Group, Inc. MS-DOS and XENIX are trademarks of Microsoft Corp. OS/2 is a trademark of International Business 
Machines Corp. UNIX is a trademark of AT&T. HERCULES is a trademark of Hercules Computer Technology, Inc. Prices and terms subject to change. 
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OOPs, I Stepped in 
Something GUI... 


he scene: At an animal research 

laboratory, a beaming researcher 

directs reporters’ attention to a 

window in a room-sized box on 
the floor before them. Inside the box, 
a bored-looking gorilla sits on the floor 
and picks fleas from his tummy. 

“We've created this experiment to 
measure the cleverness of gorillas,” says 
the researcher. “We’ve carefully de- 
signed this cage so that there are only 
three ways to get out. We’re monitor- 
ing the cage continuously to see how 
quickly Grunion hits upon a way to get 
out, and which one he chooses.” 

Inside the cage, Grunion just sits 
there, scratching. 

“He seems to be in no hurry to get 
started,” observes one of the reporters. 

“Gorillas can be stubborn,” rejoins 
the researcher. “He'll get down to busi- 
ness shortly.” 

But as minutes pass, Grunion shows 
absolutely no interest in finding his way 
out of the box. The reporters begin to 
yawn. The researcher grows restive. 

“Hmmm. He may not be feeling well 
today. I’d better go in and take a look 
at him.” The researcher unlocks the 
door in the side of the box and goes in. 

Grunion immediately perks up, grabs 
the researcher, and throws him at the 
wall so hard that the entire side of the 
box collapses outward. Grunion then 
lopes out of the box and gives the 
reporters the High Five. 

Moral: There is always another way 
out of the box. Plus: Even if you built 
the box, you may not know the best 
way out. And finally: Never be too sure 
you're smarter than the gorilla. 





Jeff Duntemann, KIéRA 


Forklift Toolkit 

Way back in 1985, when I was a foot 
soldier at PC Tech Journal, each of us 
on the editorial staff was given an early 
copy of Microsoft Windows. I loved it. 
It was wonderful, the realization of 
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Xerox’s inaccessible PARC research for 
the common man. Naturally, I immedi- 
ately wanted to write applications that 
used it. So I called Microsoft and asked 
for whatever it took to generate a Win- 
dows app, affectionately known as a 
“winapp.” 

A couple of days later, the Federal 
Express man rolled this thing in on a 
forklift and I was on my own. 

Sheesh! 

The Microsoft Windows Software De- 
velopers’ Toolkit (SDK) is a massive 
collection of facts and diverse utilities 
poured into a box with little thought to 
organization or documentation clarity. 
It is the second most daunting devel- 
opers’ tool I have ever confronted; the 
first (as I'll return to a little later) is the 
SDK for OS/2 Presentation Manager. 

The Windows SDK makes it pretty 
plain that you can write a winapp in 
one of two languages: Microsoft C or 
MASM. Being neither a masochist nor 
suicidal, I called Microsoft and com- 
plained. There were but two (brutally 
difficult) ways out of the box, and I 
cared for neither. How about some bind- 
ings for Pascal or Modula-2? And cripes, 
how about coming up with some rea- 
sonable documentation? 

Their answer was and is most infor- 
mative: The Windows SDK is intended 
for use by experienced professional 
developers. In other words, if you have 
the head muscle to design a major ap- 
plication that can compete on the open 
market, you’ve got the head muscle it 
takes to untangle the unholy mess wait- 
ing inside the SDK box. Programmers 
in kiddie languages need not apply. 
Ah, well. It was a fond dream... and 
like Grunion, I sat back in my cage and 
waited for someone to provide another 
way out of the box. 


The Nature of the Box 

I was a while waiting. In the meantime, 
Microsoft was moaning about how no- 
body was jumping on the Windows’ 
bandwagon. Nobody was using it — 
perhaps not remarkably because there 
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were no applications of consequence 
for it. This may have seemed incom- 
prehensible to Microsoft, but it was 
pretty plain to me: Most professional 
developers were looking at the cost/ 
benefit equations presented by the Win- 
dows SDK and deciding that the costs 
outweighed the benefits by about fifty 
to one. 

So I waited. While I was waiting, I 
thought a lot about how Windows de- 
velopment could be done more easily. 
Consider the nature of the box: There 
are about 520 different API calls for 
Microsoft Windows 2.0. This is cool; 
Windows is a capable and complex 
gadget that does a lot of interesting and 
difficult things. Furthermore, Windows 
is an event-driven system. At unpre- 
dictable times, the Windows machin- 
ery alerts your winapp that significant 
things have occurred: Mouse clicks, win- 
dow overlaps, things like that. The win- 
dows comprising your application must 
then react to those events somehow. 

The main problem with the Win- 
dows SDK is that it makes little or no 
effort to organize its API calls and other 
information in hierarchical fashion. It 
hides nothing, in keeping with the C 
philosophy of giving the programmer 
control over everything. However, the 
C folks never seem to catch on to the 
fact that invisible does not mean inac- 
cessible. The essence of structured pro- 
gramming, according to old Nick Wirth, 
is the artful hiding of details: Hide the 
stuff you don’t need so that it doesn’t 
overwhelm your perception and un- 
derstanding of the stuff you do need! 

Most of the stuff in the SDK can be 
kept hidden and out of the way about 
90 percent of the time. (Instead, it hangs 
in your face like cobwebs and makes 
the whole process look murky and in- 
comprehensible.) My suggestion has 
always been that a carefully-crafted bind- 
ings library could provide a header file 
full of useful defaults that don’t need 
to be tweaked until necessity arises. 
Very high-level procedures in the li- 
brary would allow creation of windows 
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and dialog boxes with one call rather 
than twenty. A winapp should need to 
be no larger than this: 


PROGRAM Yo; 
USES WinLib; 


BEGIN 
InitWinApp; 
OpenWindow(WindowHandle, 
10,10,40,5,’' Window Title’); 
WriteToWindow(WindowHandle, 
"Yo, World!’); 
WaitUntilWindowClose(Window- 
Handle); 
END. 


As part of the functioning of InitWin- 
App, the init code would fill all the 
necessary descriptor records with us- 
able default values. The programmer 
could override those default values any 
time that the default values just wouldn't 
serve. Alas, there is no Pascal library 
like this, so don’t call me up at three 
ayem asking me where to buy it. 


The Way Out 

Microsoft wasn’t listening back then, 
and as best I know they’re not listening 
today. While waiting for someone to 
implement my obvious way out of the 
box, a small company near Chicago 
came from nowhere and provided yet 
another way out, a way that was years 
ahead of its time and flew right past 
nearly everybody in the industry in 1986: 
objects. The company is The Whitewa- 
ter Group, and the product is Actor. If 
you have a hankering to do Windows, 
let me be pretty blunt about it: Actor is 
the only way to develop applications 
for Microsoft Windows that is worth 
the trouble it takes. Period. 

Actor is a wholly synthetic language 
developed by Whitewater cofounder 
Charles Duff, who earlier implemented 
the idiosyncratic Macintosh language 
called Neon. Actor is not an extension 
of any earlier language, though it con- 
tains elements of many. If you’re famil- 
iar with either C or Pascal it won’t seem 
totally alien, and if you’ve learned Small- 
talk as well, itll seem downright tradi- 
tional by comparison. 

Actor manages the complexity of the 
Windows API by modeling the elements 
of the Windows GUI (graphics user 
interface) in object form. The Window 
class models windows. The Scrol/lBar 
class models the scroll bar control that 
may optionally be added to a window. 
Creating an instance of a Window class 
hides the complexity of window crea- 
tion behind a single easy-to-grasp meta- 
phor: The Window class acts as a “win- 
dow factory” and whacks out a win- 


dow object for you to use. Very visual, 
very intuitive. All the ugly little details 
of setting up a window are hidden 
behind that object metaphor. 

Actually, the Window class is never 
really instantiated, because a vanilla- 
flavored window isn’t good for much. 
Window is a formal class in Actor, which 
is the equivalent of the abstract class 
or abstract object type in Quick and 
Turbo Pascal. Child classes of the Win- 
dow class add additional code to spe- 
cialize the generic window: TextWin- 
dow can display (though not edit) or- 
dinary text. EditWindow is a child class 
of TextWindow that can edit as well as 
display text, and so on. 

Every important service Windows of- 
fers is modeled somewhere in the Ac- 
tor class hierarchy. The hierarchy man- 
ages the Windows API complexity in 
two dimensions: First, Actor distributes 
the specification of Windows function- 
ality up and down the class hierarchy 
by degree of specificity. The most gen- 
eral concepts (windows, controls, and 
so on) float to the top and the most 
specific concepts (file window, button, 
polygon, and so on) move to the bot- 
tom. Second, Actor hides the implemen- 
tation of Windows functionality (that 
is, the gritty details of calling the API 
and handling events) behind the grasp- 
able masks of the individual classes. 

This dual-mode management of com- 
plexity Gdea complexity and implemen- 
tation complexity, both at once) is per- 
haps the greatest gift object-oriented 
techniques offer the programmer. Ac- 
tor uses it to the fullest, both to manage 
the complexity of the Windows API 
and also Actor’s own very rich class 
library. 


The Importance of a Class Library 

The notion of a rich class library is 
extremely important, and I haven’t re- 
ally taken it up so far in my discussion 
of OOP concepts. If you’ve seen White- 
water's excellent ad describing how to 
write a text editor in two code state- 
ments, you'll begin to get a feeling for 
the complexity-hiding leverage Actor 
affords. It really is that easy to create a 
text editor in Actor: 


MyEditor := New(EditWindow, 
ThePort,“editmenu” , 
“Editor” nil); 

Show(MyEditor, 1); 


In the first statement the object MyEdi- 
toris instantiated from the EditWindow 
class, by sending the New message 
to the class. In the second statement, 
the new window object MyEditor is 
made visible by sending it the Show 
message. (I'll get back to this notion 


Dr. Dobb’s Journal, December 1989 


of message passing again shortly.) 

This is not just a matter of making 
Windows API calls. Actor actually comes 
with a fully functional text editor object 
in its class library. This is the rough 
equivalent of something such as the 
Turbo Pascal Editor Toolbox with all 
the loose ends tied up and tucked in. 
Nothing ties up loose ends such as 
encapsulation. The cleanness of inter- 
facing to an object that may represent 
tens of thousands of lines of code is 
one reason Actor can offer things like 
a text editor class, and is a major reason 
earlier languages had a tough time with 
toolbox products. 

Actor offers lots of additional library 
classes, some with considerable power 
and many with no analog in the purely 
structured world. Under the formal class 
Collections (which is Actor’s name for 
what we would simply call data struc- 
tures) are a number of interesting crit- 
ters. One is Bag, which metaphorically 
is just what its name implies: A con- 
tainer in which you can toss any objects 
you like. The class keeps track of what’s 
in the bag, and how many are there. 

Bag bears some relation to Pascal’s 
set type. Sets in Pascal only deal in 
values, not variables, however; and a 
value is either in a set or not in the 
set — Bag can tell you how many ob- 


jects of a given class are present. 

The TextCollection class resembles 
the melding of a Pascal text file held 
completely in memory with a simple 
line-oriented editor such as EDLIN. 
TextCollection data is some number of 
string values, and the class has a suite 
of methods for inserting, deleting, and 
replacing lines. Actor uses TextCollec- 
tion as the mechanism for communi- 
cating with the Windows clipboard re- 
source. Text from a TextCollection may 
be written to or read from the clip- 
board through methods defined for the 
purpose. You might think of TextCollec- 
tion objects as sheets torn off the Win- 
dows clipboard —a handy metaphor 
for what is a very handy thing to have 
in a library. 

Another important collection class 
is the Stream class, which resembles 
an array of objects, where the objects 
can be of any class at all. Streams can 
be handy for things like lexical analysis 
when held entirely in memory, but are 
probably most useful for writing ob- 
jects to disk files. Turbo Pascal 5.5 has 
a similar Stream type, as does C++. 

It’s possible Gif not easy) to provide 
libraries of routines defining text edi- 
tors, windows, and buttons for ordi- 
nary structured languages. It takes the 
power of late binding and polymor- 





phism, however, to implement things 
such as bags and streams in which the 
elements of the data structure can be 
any type at all. 

This is one of the numerous reasons 
that rich runtime libraries really come 
into their own in an object setting. Not 
only does encapsulation make libraries 
clean and easy to understand and use, 
but polymorphism allows a richness 
of data expression that older purely 
structured languages simply cannot 
match. Just try to code up a bag in 
preobject C or Pascal. Generic pointers 
might give you a fighting chance, but 
the resulting Hackenstein’s monster 
would be an ugly thing indeed. 


Polymorphism via Messages 
By now, a good many people have 
sampled OOP concepts in the forms 
of Quick Pascal and Turbo Pascal. Peo- 
ple evaluating Actor will more and more 
be doing so not from a platform of total 
ignorance but simply from different 
OOP implementations. Actor has all 
the object-oriented features that C++ 
and Object Pascal have, but as with 
Smalltalk (as I described a few col- 
umns ago) the jargon can be confusingly 
different. 

Polymorphism is a case in point. 

In C++ and Turbo Pascal 5.5, poly- 
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morphism is an option rather than a 
way of life. Your methods can be vir- 
tual (meaning that they support poly- 
morphism) if you choose, but they de- 
fault to being early-bound (static), just 
as ordinary procedure calls are. (Quick 
Pascal, on the other hand, makes all 
methods virtual, period.) 

In Actor and Smalltalk, everything is 
an object and all method calls are late 
bound. Both languages use the same 
jargon in describing polymorphic 
method calls: Instead of calling a method 
directly (which would imply early bind- 
ing) you call an object’s method by 
sending that object a message indicat- 
ing which method you wish to call. 
The object then uses the message to 
select which method code is actually 
invoked. 

If you learned polymorphism in a 
Pascal or C++ context, this probably 
sounds pretty weird. The mechanism 
is called message passing, and it de- 
serves a little elaboration. 

Think of it this (rather literal) way: 
Imagine that you, as a farmer, find a 
note in your mailbox one morning from 
the county agent. The note simply says: 


KILLER FROST TONIGHT. HARVEST 
YOUR CROPS NOW! 


Up and down the county roads, other 
farmers find the same message in the 
mailbox. What does each one do? 

It depends on the nature of the crops 
each farmer grows. 

If you’re a cucumber farmer, you 
crank up your cucumber-picking ma- 
chine and head off down the rows in 
your fields. If you own a cherry or- 
chard, you haul out the tall ladders, 
call out the kids and your hired hands, 
and start in on the trees. The act of 
picking cucumbers is nothing like the 
act of picking cherries, but both ac- 
tions amount to a reasonable response 
to the directive HARVEST YOUR CROPS. 

The “many shapes” of crop harvest- 
ing are a form of polymorphism. The 
county agent simply tells the farmers 
in his district what to do — not how to 
do it. The farmers each know how to 
harvest their own crops. And they do 
it, each in an appropriate way. 

Back in Actor, consider a collection 
(a bag, say) of various objects. (Keep 
in mind that everything in Actor is an 
object, right down to characters, strings, 
and numeric digits.) You want to print 
out the value of every object in the 
bag. The way to do this is to send the 
Print message to every object in the 
bag. Each object then reacts to the Print 
message by selecting the correct Print 
method to invoke. A string object will 
print using one method, but a numeric 


156 


value object will need to use a different 
method — one that first converts the 
numeric value to a string and then dis- 
plays the string to the screen. 

If you think about it, this is really no 
different than the situation in Object 
Pascal. Remember, that when virtual 
methods are inherited down an object 
hierarchy, the name of the virtual 
method is always the same, even when 
the implementation of the method is 
different. In a sense, when you make 
a virtual method call you pass the name 
of the method to the object in question, 
which then looks the name up in a 
table to determine which implementa- 
tion of that named method to invoke. 
The name of the virtual method is thus 
a message: PRINT YOURSELF. The re- 
ceiver of the message must decide what 
code will in fact do the job and satisfy 
the directive. 

So beneath it all, message-passing 
and virtual method calls are function- 
ally the same thing. Don’t let the jargon 
get you down! 


Familiar Bones 

Although, Actor uses some of the same 
jargon as Smalltalk, it’s an easier lan- 
guage to learn because the bones of 
language are implemented in more fa- 
miliar form. Passing a message to an 
object looks a heckuva lot like a Pascal 
procedure call: 


MyStack := New(OrderedCollection,64); 
Add(MyStack,17); 
Add(MyStack,42); 


Here, we create an instance of the Or- 
deredCollection class (think of it as an 
array with a built-in stack pointer) and 
call it MyStack. Notice that the assign- 
ment operator and syntax is identical to 
Pascal’s. Two Add messages amount to 
pushing two values onto MyStack. You 
could implement a stack type in Pascal 
and create an Add procedure that would 
have the same sort of interface. 

In a fashion similar (if not identical) 
to C, an Actor method is defined by 
creating a header and then enclosing 
some number of statements between 
curly brackets: 


Def MyMethod(self,Foo,Bar) 


DoSomething; 
DoSomethingElse; 
AndSoOn; 

} 


Actor’s control structures, while using 
slightly different syntax, incorporate 
most of the familiar Pascal keywords 
and are easy to recognize and under- 





stand. Conditional statements are pretty 
plain: 


if Gi < 10) 

then DoSomething; 
else DoSomethingElse; 
endif; 


The looping construct can be set up in 
a number of different ways, but it reads 
well in any configuration. This one is 
set up as a while/do loop: 


loop 

while x < 42 
X:=x-71; 
printCx); 

endloop; 


Actor’s designers have taken consider- 
able pains to keep “weirdness” out of 
the language; the only weirdness is the 
inescapable weirdness of object-ori- 
ented thinking, which like kudzu is 
destined over time to replace whatever 
else is out there. 


Actor on the Scales 

Given the enormity of the things it does 
(such as taming the Windows API) I 
found Actor almost ridiculously easy to 
learn. The trick, again, is not in the 
language but in the paradigm. Once 
you learn to think object-ively, you 
shouldn’t have any more trouble than 
I had. 

The documentation is solid, if not 
exhaustive. The single fat (700 page) 
volume hasn’t failed to provide me what 
I’ve needed to know so far, which is 
my early measure of language docu- 
mentation. I haven’t yet tried to do 
anything really tricky, such as using the 
early-binding option or create a stand- 
alone application, but I hope to report 
on both in future columns, and we'll 
see how well the doc stands up in a 
pinch. 

On the low end, the manual is a 
so-so introduction to OOP thinking. I'll 
forgive them that, and in fact I prefer 
that they’d give the language its due in 
the manual and let us joinalists anoint 
the great unwashed in object-oriented 
First Principles. If you’ve already made 
the conceptual breakthrough to objects, 
on the other hand, you'll have no prob- 
lem at all picking up Actor itself. 

There is also the book by Marty Franz, 
Object-Oriented Programming with Ac- 
tor, that takes a slower, more gentle 
path to OOP. Marty has a clean, plain 
style and goes into the mindset of Ac- 
tor programming in a way that the man- 
ual itself doesn’t have room for. If you’re 
going to go the $500 to acquire Actor, 
it’s well worth shelling out another $25 
for the book. 
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(continued from page 156) 

Which brings us to the question of 
Actor’s success in the marketplace. Pretty 
obviously, Actor has hitched its wagon 
to Windows, and won’t do any better 
than Windows does. Windows, how- 
ever, is alluvasudden on a roll, fueled 
largely by the availability of $2000-386 
machines that make Windows not only 
fast enough but almost sprightly. The 
Windows installed base has probably 
achieved a sort of critical mass, with 
even Borland announcing that they will 
pursue Windows development in their 
languages. 

The way I see it, Actor has only one 
serious impediment to its success: Its 
$500 price tag. Compared to the Win- 
dows SDK it’s cheap enough, but an 
impulse buy it is not. If a Tiny Actor 
(Child Actor?) were available for the 
canonical $99, there’d be no stopping 
it. Microsoft has done well with its Big 
C/Little C approach. Whitewater should 
pay heed. Actor is the way to break out 
of the Windows software development 
box, but for Grunion the Gorilla to 
knock out a wall with it, Actor first has 
to get in the door somehow. 


OS/2, Mon Dieu! 

And then there is Presentation Man- 
ager. PM is to OS/2 as Windows is to 
DOS: The anointed user interface and 
graphics toolkit. Like Windows, it has 
an SDK, which is larger, richer, and 
perhaps even a little better organized. 
Unfortunately, because PM does lots 
more than Windows, the end result is 
the same: You could spend years get- 
ting good enough at the SDK to write 
a competitive product with it. (Not to 
mention the endless irritation of hav- 
ing to write in C.) 

Ever since PM was announced, I’ve 
been thinking, “Somebody should do 
an Actor for it.” The whole nature of 
PM, like that of Windows, cries out for 
an object-oriented development lan- 
guage. Both of the current books I’ve 
obtained on Presentation Manager pro- 
- gramming describe PM internals in ob- 
ject-oriented terms, even though the 
example code is in plain old-fashioned 
C. If you intend to work in PM Id 
suggest you get them both: Alan South- 
erton’s Programmer's Guide to Presen- 
tation Manager is nicely done, if a little 
thin on figures and example code for 
my tastes. Even so, it runs to 750 pages — 
there is a lot to cover. 

The book to have, though, is the one 
bundled in the Microsoft PM SDK: Pro- 
gramming the OS/2 Presentation Man- 
ager by Charles Petzold. (Details on 
both books are given at the end of the 
column — but remember not to buy 
Petzold’s book if you’re also going to 
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buy the SDK!) Lord knows what Micro- 
soft would have done without a writer 
like Charles Petzold to make sense of 
it all. In 850 pages he makes PM devel- 
opment about as rational as it’s ever 
going to be. Lots of code, lots of fig- 
ures, and beautifully written. To get a 
handle on PM internals, start here. 


Presenting Smalltalk 

I’ve encouraged Whitewater to do an 
Actor for it, and they well might — or 
let us hope. In the meantime, however, 
Digitalk has gone and done the re- 
markable, which is to produce a Small- 
talk for PM — one that adheres totally 
to the PM user interface spec. 

This is remarkable because Small- 
talk, the language, was defined with its 
own user interface, and up until now 
Digitalk has been relatively faithful to 
that interface, perhaps for fear of being 
accused of “tinkering with the stan- 
dard.” Their latest move is the right 
one. Smalltalk has its own user inter- 
face spec because when it was de- 
signed (mid-seventies) Batch was King, 
and user interfaces didn’t exist. For the 
same reason that UCSD Pascal was de- 
signed with its own operating system, 
Smailltalk-80 had its own user interface. 
But operating systems have become 
standardized with user interfaces right 
behind. 

I’ve had very little time to experi- 
ment with Smalltalk/V PM, mostly be- 
cause getting OS/2 to run on a Frank- 
enclone is ticklish business. (The prod- 
uct itself, even in its unfinished state, 
is pretty robust.) At this writing the 
product is still in beta test form. I'll 
have a lot more to say about it when I 
receive the shrinkwrapped product. 

For now, here are some of the im- 
portant points: 


e Where Smalltalk’s original spec and 
PM conflict, PM wins. For example, 
Smalltalk’s original Bitb/t class and its 
children have been replaced by the 
new GraphicsTool class and its chil- 
dren, which correspond more closely 
to PM’s vector-oriented graphics. 

e PM’s coordinate system places the 
default origin (0,0) in the lower-left 
corner of a window’s client area. Small- 
talk uses the upper-left corner for the 
origin, and some rewriting of existing 
Smalltalk code to “flop” the grid is al- 
most assured. 

e The Digitalk interactive environment 
now generates stand-alone .EXE files 
that execute without the presence of 
any runtime system. This means sim- 
pler logistics for distributing applica- 
tions written in Smalltalk/V PM. Un- 
doubtedly, there is some internal inter- 
pretation going on (Smalltalk is at heart 








an interpreter) but the sealed-off appli- 
cation is as independent as a C module 
and all the apps I’ve seen have run 
unapologetically fast. 


Yes, it’s a dialect, but so was Turbo 
Pascal — which has weathered the rain 
of brickbats from sourpuss academi- 
cians. Digitalk has done the right thing, 
both from a Smalltalk perspective and 
a Presentation Manager perspective. C 
is not an appropriate language for use 
in developing for a GUI. (C++ is, of 
course, but that’s another person’s col- 
umn.) Smalltalk, as it was, seemed 
chained to the late seventies, trapped 
in a set of assumptions that simply 
don’t apply to our modern machines 
and operating environments. In a fu- 
ture column I'll use Smalltalk/V PM to 
show you just how utterly simple it can 
be to develop for Presentation Man- 
ager. Thanks, Digitalk, for a bold step. 

And welcome to the real world, Small- 
talk. 


DDJ 
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_ SVS - LEGENDARY COMPILERS. 
| THE PERFORMANCE BENCHMARK. 


SVS LANGUAGE 
LEGENDARY COMPILERS. 

SVS C, SVS Fortran, SVS PASCAL, 
SVS Basic-PLUS, SVS DBG. 
LEGENDARY SYSTEMS. 

In worldwide distribution for over 
ten years, SVS Language Systems are 
licensed at over 250,000 UNIX" sites. 
LEGENDARY PORTABILITY. 
Applications using SVS Language 
Systems use identical source code 


SYSTEMS 


regardless of the platform. Portability 
is easy. There is no recoding, simply 
use the optimizing SVS compiler on 
the target system. A single develop- 
ment effort can be leveraged across 
a broad range of vendors, processors 
and systems. 

LEGENDARY SUPPORT. 

SVS provides all levels of customer 
support from TRIX™ our real-time 
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1710 South Amphlett Blvd., Suite 100, San Mateo, CA 94402 415-572-8800 


electronic conferencing system, to 
language updates and standards con- 
formance. We will GUARANTEE our 
response time to your requests. 
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and extended DOS based systems: 
ARIX, Compaq, Motorola, Prime, 
Sun, UNISYS, Bull HN, IBM/AIX, NCR, 
Sequent, T.1., SCO/Xenix, PC/ix. 
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BOOKS TO PROMOTE YOUR 
PROGRAMMING SKILIS 





Dr. Dobb’s 
Toolbook 
of C 


by the Editors of Dr. 
Dobb’s Journal of 
Software Tools 


Over 700 pages of the best C 
articles and source code from 
Dr. Dobb’s Journal of Soft- 
ware Tools are in a single 
book! Not just a compilation 
of reprints, this comprehen- 
sive volume contains new 
materials by various C experts 
as well as updates and revi- 
sions of some older articles. 

The essays and articles 
found within this virtual ency- 
clopedia of information were 
designed to give the profes- 
sional programmer a deeper 
understanding of C by ad- 
dressing real-world program- 
ming problems, and how to 
use C to its fullest. 

Some of the highlights in- 
clude an entire C compiler 
with support routines, ver- 
sions of various utility pro- 
grams such as Grep, and a C 
program cross-referencer. 

Dr. Dobb's Toolbook of 
C is an invaluable resource 
that you'll turn to again and 
again for an in-depth appre- 
ciation of C. 


Book only 
Item #615-3 $29.95 











Fractal 
Programming 
in C 
by Roger T. Stevens 


Fractals are the visual representation of “chaos”, the 
revolution that is currently sweeping through all 
fields of science. Fractal Programming in C is a 
comprehensive “how to” book written for program- 
mers interested in fractals. Learn about reproduc- 
ing those developments that have changed our 
thinking about the physical sciences, and in creat- 
ing pictures that have both beauty and an underly- 
ing mathematical meaning. Included are over 100 
black and white pictures and over 50 color pictures. 
All source code to reproduce these pictures is 
provided on disk, MS-DOS format. Requires PC or 
clone with EGA or VGA and color monitor; Turbo 
C, Quick C or Microsoft C compiler. 


Book & Disk 

Item #038-9 $39.95 
Book only 

Item #037-0 $24.95 





* Also available at your local bookstore. 
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Graphics 
Program- 
ming in C 


by Roger T. Stevens 


Graphics Program- 
ming in C details the funda- 
mentals of graphics program- 
ming for the IBM PC family 
and its clones. All the informa- 
tion you need to program 
graphics in C, including 
source code, is presented. 
You can either use the in- 
cluded graphics libraries of 
functions as is or modify them 
to suit your own require- 
ments. 

Inside, you'll find com- 
plete discussions of ROM 
BIOS, VGA, EGA, and CGA 
inherent capabilities; meth- 
ods of displaying points on a 
screen; improved, faster algo- 
rithms for drawing and filling 
lines, rectangles, rounded 
rectangles, polygons, ovals, 
circles, and arcs; graphics 
cursors; and much more! 

Graphics Program- 
ming in C carries a complete 
description of how to put to- 
gether a graphics library and 
how to print hard copies of 
graphics display screens. 
Both Turbo C and Microsoft C 
are supported. 


Book & Disk (MS-DOS) 


Item #019-2 $39.95 
Book only 
Item #018-4 $24.95 








Turbo C 
The Art of Advanced 
Program Design, 
Optimization, and 
Debugging 


by Stephen R. Davis 


Packed with useful example programs, 
this new and improved book details the 
techniques necessary to skillfully pro- 
gram, optimize, and debug in Turbo C. 
Every Turbo C topic and feature is fully 
demonstrated in Turbo C source code ex- 
amples. 

Starting with an overview of the C 
language, the author advances to topics 
such as pointers, direct screen I/O, inline 
statements, and how to intercept and 
redirect BIOS calls, all of which are dem- 
onstrated in a RAM resident pop-up 
program written in Turbo C. 

Fully outlined are the differences 
between Unix C and Turbo C the transi- 
tion from Turbo Pascal to Turbo C and 
the superset of K&R C features imple- 
mented in the proposed ANSI C standard. 

Whether you are a C programmer 
interested in investigating this exciting 
new dialect of the language or a Turbo 
Pascal programmer who is curious to 
learn more of this C language, Turbo C 
is must reading! 


Book & Disk (MS-DOS) 


Item #45-3 $39.95 
Book 
Item #38-0 $24.95 


C Chest 
and Other C 


Treasures 
from Dr. Dobb’s 
Journal 


edited by Allen Holub 


This comprehensive anthology contains 
the popular “C Chest” columns from Dr. 
Dobb's Journal of Software Tools. 

For the novice and experienced C 
programmer alike, C Chest and Other 
Treasures will prove to be an invalu- 
able resource, providing hours worth of 
information to be learned and applied. 

Just some of the many topics detailed 
are: pipes, wild-card expansion, and 
quoted arguments; sorting routines; 
command-line processing; queues and 
bit maps; ls, make, and other utilities; ex- 
pression parsing; hyphenation; an Fget 
that edits; and more! 

Also included are several information- 
packed articles written by well-known C 
experts. Learn about a flexible program 
that allows you to find the minima of 
complex, multiple dimension equations; 
cubic-spline routines that provide an 
efficient way to do a more restrictive 
curve-fitting application; and an fgrep 
program that resurrects a very efficient 
finite machine-based algorithm that can 
be used in any pattern-matching algo- 
rithm! 

C Chest and Other C Treasures 
provides a collection of useful subrou- 
tines and practical programs written in C, 
and is available on disk with full source 
code. 


Book & Disk (MS-DOS) 


Item #49-6 $39.95 
Book only 
Item #40-2 $24.95 
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DESQview: 

A Guide To 
Programming the 
DESQview Multitasking 
Environment 


by Stephen R. Davis 


DESQview: A Guide to Programming 
the DESQview Multitasking Environ- 
ment provides users with the informa- 
tion they need to get the most out of 
DESQview. Discussed are the object- 
oriented DESQview 2.0 Application Pro- 
gram Interface (APD and the multitasking 
concepts necessary to program the 
DESQview environment. For C program- 
mers, this book allows you to access the 
API environment from C. Since 
DESQview embodies almost all of the 
capabilities of OS/2, C programmers are 
allowed access to multitasking, rudimen- 
tary interlink communication, window- 
ing handled by the operating system, and 
some dynamic link capability. 

DESQview: A Guide to DESQuview 
Multitasking Environment is fully en- 
dorsed by Quarterdeck Office Systems, 
publisher of DESQview. Optional disk 
contains example programs. 


Book & Disk (MS-DOS) 


Item #006-0 $39.95 
Book only 
Item #028-1 $24.95 





* Also available at your local bookstore. 
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A Small C 
Compiler: 
Language, 
Usage,Theory, 
and Design 





by James E. Hendrix 


A Small C Compiler contains 

a full presentation of the de- 
sign and operation theory of 
the Small C compiler and pro- 
gramming language. This 
book provides an excellent 
example for learning basic 
compiler theory as well as a 
full, working Small C com- 
piler. Features include code 
optimizing, internal use of 
psuedo code, upward com- 
patibility with full C, recursive 
descent parsing, a one pass 
algorithm, and the generation 
of assembly language code. 
The optional diskette  in- 
cludes an executable com- 
piler, fully documented 
source code and many 
sample programs. A Microsoft 
or IBM Macro Assembler is 
required. 


Book & Disk (MS-DOS 


Item #97-6 $38.95 
Book only 
Item #88-7 $23.95 


Small 


Assembler: 
A Macro 
Assembler 
Written in 
Small C 





by James E. Hendrix 


Small Assembler is a full 
macro assembler which was 
developed primarily for use 
with the Small C compiler. In 
addition to being a full assem- 
bler that generates standard 
MASM compatible .OBJ files, 
the Small Assembler is writ- 
ten in Small C. It provides an 
excellent example for learn- 
ing the basics of how an as- 
sembler works. The Small 
Assembler generates .OBJ 
files for all 80x86 processors, 
and will easily adapt to future 
Intel processors. 

The manual provides an 
overview of the Small Assem- 
bler, documents the com- 
mand lines that invoke pro- 
grams and provides appendi- 
ces and reference materials 
for the programmer. The ac- 
companying disk includes 
both the executable assem- 
bler and full source code. 


Manual & Disk 
Item #024-9 $29.95 





Small 


Windows: 
A Library of 
Windowing 
Functions for 
the C Language 





by James E. Hendrix 


Small Windows is an exten- 
sive library of C language 
functions for creating and 
manipulating display win- 
dows. The manual and disk 
package contains 41 window- 
ing functions that allow you to 
clean, frame, move, hide, 
show, scroll, push and pop- 
up menus. 

A file directory illustrates 
the use of window menu 
funcitons and provides file 
selection, renaming and dele- 
tion capability. Two test pro- 
grams are provided as ex- 
amples to show you how to 
use the library and the win- 
dow, menu and directory 
functions. Small-Windows is 
available for MS-DOS. sys- 
tems, and Microsoft C ver- 
sions 4.0-5.0, Turbo C 1.5, 
Small-C and Lattice C 3.1 
compilers. Documentation 
and full source code included. 


Manual & Disk (MS-DOS) 
Item #35-6 $29.95 





Small 
Tools: 


Programs for 
Text Processing 





by James E. Hendrix 


This package of programs 
performs specific, modular 
Operations on text files such 
as editing, formatting, sorting, 
merging, listing, printing, 
searching, changing, translit- 
erating, copying, and 
concantenating. Small-Tools 
is supplied in source code 
form. You can select and 
adapt these tools to your own 
purposes. Documentation is 
included. MS-DOS. 


Manual & Disk (MS-DOS) 
$29.95 


Item #02-X 





* Also available at your 
local bookstore. 
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Building 
Local Area Networks 
With Novell’s NetWare 





by Patrick H. Corrigan and Aisling Guy 


From the basic components to complete network installation, 
here is the practical guide that PC system integrators will need 
to build and implement PC LANs. The specifics, including 
hardware configurations, software development, cabling, se- 
lection criteria, installation, and on-going management, are all 
described in a clear, “how-to” manner. 

Emphasis is given to Novell’s NetWare, and includes Net- 
Ware for the Macintosh. 


Book & Disk (MS-DOS) 
Book only 


Item #025-7 
Item #010-9 


$39.95 
$24.95 
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Special! 
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Subtotal 
CA residents add sales tax 
Shipping and handling add 

$2.99 per item 


Total 
| Foreign orders add $7.60 per item; add $12 surface mail for Small C 
Special. 


ITO ORDER: Return this coupon with your payment to M&T Books, 501 Galveston Drive, Redwood Ci 
| CA 94063-4728. Or CALL TOLL FREE 1-800-533-4372. (In CA call 1-800-356-2002). 
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NetWare User’s Guide 





by Edward Liebing 


A task-oriented reference that introduces users to NetWare and 
guides them through the basics of NetWare menu-driven 
utilities and command-line utilities. The author provides 
information about the utility with specific procedures to 
perform the task in mind. Each utility is illustrated. For 
advanced users, NetWare User’s Guide includes a worksta- 
tion troubleshooting section that describes errors that may 
occur at the workstation end of the network. Utilities covered 
include NetWare v2.1 through v2.15. 


Book only Item #071-0 $2295 


) 


For Small Windows, indicate: 

|] Microsoft version 4.0/5.0 compiler 
[_] Small-C compiler 

| _] Lattice C 3.1 compiler 

| ] Turbo C 1.5 compiler 


| ]Check enclosed. Make payable to M&T Bocks. 
Charge my: L]Visa LJM/C L] AmEx 

Card No. Px. Date 
Signature 

e FREE SHIPPING on domestic orders of 


$75 or more! 
e FREE SHIPPING on foreign orders of 


$150 or more! RW) 


Mal BOOKS 
Order by FAX (415) 366-1685 


* Also available at your local bookstore. 
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C PROGRAMMING 


Listing One (Text begins on page 144.) 


#define MXTOKS 25 /* maximum number of tokens */ 
#define OK 0 
#define ERROR !OK 


struct postfix { 
char pfix; 
char *pfixop; 


/* tokens in postfix notation */ 
/* operand strings */ 


}; 


extern struct postfix pftokens[]; 
extern int xp offset; 


f® Ssseatees expression token values --=-<-=-=-- =f 
#define TERM 0 
#define OPERAND 'O0’ 
#define AND "&! 
#define OR oe 6 


#define OPEN ne 
#define CLOSE ry 
#define NOT EAS 
#define QUOTE uy 


fh eae ese textsrch prototypes ---------- a | 
struct postfix *lexical_scan(char *expr); 


End Listing One 


Listing Two 


[SE grea eaese @xXpress..¢ A-sSees=<=4 *7 


#include <stdlib.h> 
#include <string.h> 
#include <ctype.h> 
#include "textsrch.h" 


/* 
* Parse a search expression into a valid postfix token stream. 
* The input expression has this form: 


x <expr> := <ident> 
x <ident> <op> <expr> 
* NOT <expr> 
* (<expr>) 
x <op> >= AND 
% OR 
* <ident> := <character> 
* <character> <ident> 
i "<phrase>" 
* <phrase> := <ident> 
* <ident> <space> <phrase> 
*/ 
#define iswhite(c) (c < 33 && c > 0) 
#define isparen(c) (c == OPEN 11 c == CLOSE) 
#define isop(c) (c == AND 11 c == OR) 
#define ischaracter(c) (!isparen(c) && \ 
'isop(c) && \ 
c != TERM && \ 
‘iswhite(c) && \ 
c != QUOTE) 
ft sscasionmes= prototypes --------------- */ 
static int getword(char *expr); 
static int gettoken(char *expr); 
static int expression(char *expr); 
static void postfix(void); 
static int isp(int tok); 
static int icp(int tok); 
static void poststack (void) ; 
int xp offset = 0; /* offset into the expression */ 
static char word[50]; /* word from the expression */ 
static char tokens [MXTOKS+1]; /* tokens in infix notation */ 
Static char *operands[MXTOKS]; /* operand strings *} 
static int token_ptr = 0; 
static char stack [MXTOKS]; /* stack for tokens * | 
static char *stopr[MXTOKS]; /* operand strings a 
static int top = 0; 
struct postfix pftokens [MXTOKS]; 
static int pf = 0; 
[* ------ analyze the expression for valid syntax ---------- */ 
struct postfix *lexical scan(char *expr) 
{ 
token ptr = xp offset = 0; 
if (expression(expr) == ERROR) 
return NULL; 
else if (gettoken(expr) != TERM) 
return NULL; 
postfix(); 
return pftokens; 
} 
2 ees eeees analyze an element of the expression ---------- rd 


static int expression(char *expr) 


{ 


164 


/* 


int tok; 


tok = gettoken(expr) ; 
switch (tok) { 
case OPEN: 
if (expression(expr) == ERROR) 
return ERROR; 
if ((tok = gettoken (expr) ) 
return ERROR; 
break; 
case NOT: 
if (expression(expr) == ERROR) 
return ERROR; 
break; 
case OPERAND: 
break; 
default: 
return ERROR; 


!= CLOSE) 


} 
tok = gettoken (expr) ; 
switch (tok) { 
case TERM: 
return OK; 
case AND: 
case OR: 
return expression (expr) ; 
case CLOSE: 
=-=token ptr; 
--xp_ offset; 
return OK; 
default: 
break; 
} 
return ERROR; 


Samsse= extract the next token from the expression ------- */ 


Static int gettoken(char *expr) 


{ 


char tok; 


operands[token ptr] = 0; 

if ((tok = getword(expr) )== OPERAND) { 
operands[token_ptr] = malloc(strlen(word) + 1); 
strcpy (operands[token_ptr], word); 


tokens[token_ptrt+] = tok; 


return tok; 


a eas ae extract a word, operator, parenthesis, 
or terminator from the expression ------------- */ 


static int getword(char *expr) 


} 


[o aetaee bypass white space -------- *] 

while (iswhite(expr[xp_offset]) ) 
xp_offset++; 

switch (expr[xp_offset]) { 


case OPEN: 
case CLOSE: 
return expr[xp offset++]; 
case TERM: ~ 
return TERM; 
case QUOTE: 
while (expr[+txp offset] != QUOTE) { 
if (w == 50) 
return ERROR; 
word[wtt+] = tolower(expr[xp_ offset]); 


} 

xp_offsettt+; 

word[w] = '\0’; 

return OPERAND; 

default: 

while (ischaracter(expr[xp_ offset]) ) { 

1f -(w == 50) 
return ERROR; 

word[wt+] = tolower(expr[xp offset]); 
xp_offset+t+; 7 

} 


word[w] = ’\0’; 

if (strcemp(word, "and") == 0) 
return AND; 

else if (strcmp(word, "or") == 0) 
return OR; 

else if (strcmp(word, "not") == 0) 
return NOT; 


return OPERAND; 


/* - convert the expression from infix to postfix notation - */ 
static void postfix(void) 


{ 


char tok = ’*’; 


top = token ptr = pf = 0; 
stack[top] = ’*’; 
while (tok != TERM) { 
Switch (tok = tokens[token_ptr]) { 
case OPERAND: 
pftokens[pf].pfix = tok; 
pftokens[pf].pfixop = operands[token_ptr]; 
pft+; 
break; 
case NOT: 
case OPEN: 
case AND: 
case OR: 


(continued on page 167) 
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Actor 1s the fastest, easiest way to develop applica- 
tions for Microsoft” Windows. The reason— Actor's 
reusable toolkit of objects such as dialog boxes 


and edit windows. It more than 
doubles your overall productivity, 
making Actor an essential part 
of any Windows development 
project. 

A full-featured, interactive, 
Windows-based programming 
environment, Actor provides 
immediate compilation, inter- 
active testing, and source-code 
debugging. You can use it to 
produce fast standalone applica- 
tions that support all Windows 
features, including Dynamic 


S) The Whitewater Group’ 


600 Davis Street 
Evanston, Illinois 60201 U.S.A. 
(312) 328-3800 


scroll bars, 


new(EditWindow, ThePort, “Editmenu”, "Text Editor", nil); 
» 4) 
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These two lines of Actor code are all it took to 
produce the Windows text editing program you 
see above. Just think what you can do with a few 
more lines. 


This text editing progranm-- 
including pull-down menus, 

and all other 
Windows items--was created with 
just two lines of Actor code. 





Data Exchange (DDE) and expanded memory. 
Actor 1s a powerful, pure object-oriented pro- 
gramming language. It’s all you need to develop 


complete Windows applications. 
You also have the option to 
dynamically link Microsoft C 
code to your Actor program. 

Either way, it’s the fastest way 
to produce everything from proto- 
types to complete development 
projects. No wonder so many de- 
velopers are already using Actor. 

Call us now for more 
information. 

The sooner you do, the sooner 
you can speed up your Windows 
development work. 


Two New Products 


For C or Actor Programmers 


WintTrieve™ 


ISAM indexed file manager. Only $395, no royalties. 


FAX (312) 328-9386 


(800) 869-1144 


Whitewater Resource Toolkit™ 
Edit dialog boxes, bitmaps, icons and more. Only $195. 
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Now build easy-to-use workstations in Microsoft® Windows™ for amy job function. 


Announcing the easy way to 


integrate Windows and DOS a 


without programming in C. 


With the interactive control language called 
Bridge, developing in Windows takes a frac- 
tion of the time of C. 

Bridge makes it easy to build easy-to- 
use workstations for any job function. Design 
dialog boxes and menus faster than you ever 
thought possible. 
“Seamlessly” integrate 
multiple Windows and 
DOS applications with 
multitasking. Automate 
repetitive tasks. Easily customize and revise 
applications. Quickly create working proto- 
types. Simplify every step of every user 
application! 










track sales performance. 


“Bridge/286 and Bridge/386 are impres- 


sive programs. If you use Windows 
with a variety of applications and have 
any facility with languages, you'll 
want a copy...” 

PC Magazine 


Become a Windows and DOS 
integration hero. 

With Bridge, build workstations for sales 
reps, secretaries, financial analysts — any job 
function. Select the best custom and off-the- 
shelf Windows and DOS software to do a job. 
Integrate and enclose them within a user- 
defined interface. 

Bnidge helps you give users productivity 
tools to exceed their job descriptions. And 
keep them insulated from the technology. 
This frees users to discover the full capabili- 
ties of their PCs. Which in turn helps them 
do their jobs better. This increases your 
company’s profits — even its competitiveness. 
And this leads to greater recognition for you. 










stations in Windows. 





How Bridge makes Windows 
development fast and easy. 
Bridge is an interactive control language that 

actually controls Windows and DOS appli- 
cations. It transfers data between applications 
using DDE for Windows and its own mail- 
boxing scheme for DOS. 

Unlike C, Bridge does not have to be 
compiled. An integration project that would 
take weeks in C can be completed within 
days using Bridge. One developer told us he 
reduced two pages of code in C to one line 
using Bridge to launch a program. 





In this sales manager’s workstation, Bridge 
integrates Windows and DOS productivity tools 
to help manage accounts and sales reps, and 


This is a sample of a batch file from Bridge. 
These scripts make it easy to develop work- 













Create prototypes to make 
complex desktops seem simple. 


Bridge makes it easy to quickly create work- 
ing prototypes. Use prototypes to involve 
users throughout the development process — 
and assure quality. Prototyping is so fast 
with Bridge, you can make revisions on-the- 
spot while running demos with users. 


“Bridge/286 and Bridge/386 allow 
corporations and programmers using 
the Windows environment to automate 
tasks and functions easily...Bridge 
provides users with tight control over 
their Windows environment.” 

PC Week 


Solve 80% of your PC problems 
with 20% of your resources. 

With Bridge you get to fully exploit the 
capabilities of the hardware, Windows, and 
applications. It enables you to build standard- 
ized workstation environments that boost 
productivity of entire functional areas. The 
workstations’ functionality and ease-of-use 
means I/S members will respond to fewer 
mundane requests. This will give I/S mem- 
bers the opportunity to put their skills to 
best use. 


Compare the advantages. 





















































# £ SS S$ 
User-defined menus X | X | X 
Custom dialog boxes xX | 
Iconic interface creation xX 
User-defined hot keys 
Interpretive batch language 
Debugging support X 
Support of DDE X 
Application launcher X | X 





Simulate keystrokes to DOS 
& Windows applications 





Interprocess control over 
NetBIOS LAN 


| Control of/& communication 
to DOS applications 
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Get the benefits of Windows 
without sacrificing your 
investment in DOS! 

With Bridge, you're not locked into any 
particular type of software to develop in 
Windows. Integrate any Windows and DOS 
software with multitasking in a unified 
graphical interface. Get all the benefits of 
Windows without giving up your company’s 
investment in DOS! 

Training and support represents roughly 
two-thirds of automation expense. Easy-to- 
use workstations designed with Bridge will 
significantly reduce this expense. 

Bridge will support OS/2 Presentation 
Manager. 


Phone for a Free 
Information Kit. 
Phone now for a free Bridge Information Kit 
including brochure, demo disk, and product 
reviews. 


Or order Bridge for a 

30-day no-risk trial. 
Try the Bridge Tool Kit for 30 days without 
risk. If you aren't completely satisfied, return 
it for a full refund. The Bridge Tool Kit 
contains everything you need to build work- 
stations under Windows including Bridge/286 
and Bridge/386 program disks and documen- 
tation, the Bridge Editor to create dialog 
boxes interactively, an icon program, an 
encryption program, examples of DDE 
capabilities, and documentation for 
messaging. 

The Bridge Tool Kit sells for $695. 

Please inquire about volume discounts. 


No-Risk Guarantee 
Try Bridge for 30 days. If you aren't com- 
pletely satisfied, return it for a full refund. 


800-955-9190 


The Softbridge Group 


Softbridge, Inc. 
125 CambridgePark Drive 


= Cambridge, MA 02140 





Actor is a registered trademark of The Whitewater Group. Command 
Post is a trademark of Wilson WindowWare. Windows Express is a 
trademark of hDC Computer Corporation. Bridge/286 and Bridge/386 
are trademarks of Softbridge Microsystems Corporation. The 
Softbridge logo is a registered trademark of Softbridge, Inc. Microsoft 
is a registered trademark and Windows is a trademark of Microsoft 
Corporation. 


C PROGRAMMING 


while (isp(stack[top]) >= icp (tok) ) Listing Three 
poststack(); 


stack[++top] = tok; 
break; 
case CLOSE: 
while (stack[{top] != OPEN) 
poststack (); * A program to test the TEXTSRCH expression analyzer 
. x / 


case TERM: #include <stdio.h> 
while (top) #include <process.h> 
poststack(); #include <string.h> 
pftokens[pft++].pfix = tok; #include "textsrch.h" 
break; 


} static void disp token(struct postfix *pf); 
token_ptr+t; ~ 


} void main (void) 
char expr[80]; 
static int isp(int tok) 
do 
return ((tok read the expression from the console 
printf("\nEnter the search expression: \n"); 
gets (expr) ; 
if (*expr) { 
} * === scan for errors and convert to postfix -~-- */ 
if (lexical scan(expr) == NULL) { 
while (xp _offset--) 
putchar(’ ’); 
putchar(’*%’); 
printf ("\nSyntax Error"); 
exit (1); 


static int icp(int tok) 


return ((tok 
(tok 


} 


/* --- remove a token from the stack, put it into postfix --- */ 


; . display the postfix tokens 
static void poststack (void) 


printf ("\nToken"); 
printf (*\n 

disp token (pftokens) ; 
prante ("\n 


pftokens([pf].pfix = stack[top]; 

pftokens[pf].pfixop = stopr[top]; 

==tOp; } 
pft+; } while (*expr) ; 


} 
static void disp token(struct postfix *pf) 


if (pf->pfix != TERM) { 
disp token (pft1l); 
printf("\n $s", pf->pfix == AND ? "<and>" : 
pf->pfix == OR ? "<or>" : 
pf->pfix == NOT ? "<not>" : 
pf->pfixop) ; 


End Listing Two End Listings 
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Apple Computer announced the 
Macintosh Programmer’s Work- 
shop (MPW) C++ at OOPSLA ’89. MPW 
C++ fully supports the AT&T 2.0 speci- 
fication including multiple inheritance, 
operator overloading, and protected 
members. Support of the Macintosh Tool- 
box and the operating system as well 
as Object Pascal-based methods found 
in MacApp are also provided. MPW 
C++ includes the MPW C++ translator, 
C++ interfaces, and libraries for com- 
plex math and stream processing, an 
unmangler for CFront messages, and a 
collection of example programs. In ad- 
dition, Apple’s Symbolic Application 
Debugging Environment (SADE) can 
be used to debug programs at the C++ 
source level. A beta version of MPW 
C++ (v 3.1B1 at the time of this writing) 
is available through the Apple Program- 
mers and Developers Association 
(APDA) for $175. MPW C++ also re- 
quires MPW C, Version 3.0, or higher 
and the Macintosh System Software 6.0.2 
or later. Reader service no. 20. 

Apple Computer 

20525 Mariani Avenue 

Cupertino, CA 95014 

Apple Programmers and Developers 
Association (APDA) 

800-282-2732 

408-562-3910 


ObjectVision Inc. of Berkeley Calif. 
has just released its visual object-ori- 
ented programming environment of the 
same name. ObjectVision allows the 
programmer to both organize object 
hierarchies and design objects visually 
on the screen. Once an object is cre- 
ated, the programmer can implement 
its methods through a pop-up editor 
by using an English-like syntax. Once 
the design is completed, ObjectVision 
generates either C++ or Turbo Pascal 
5.5 source code. A “hide” function encap- 
sulates the details of a newly designed 
object, keeping the screen free of clut- 
ter. In addition, a built-in browser al- 
lows the designer to easily traverse the 
object hierarchy. ObjectVision also pro- 
vides a pixel editor for the creation of 
icons, the ability to import dBase data 
into specialized database objects, built- 
in drawing functions, and a rather slick 
UI that includes mouse support. Sup- 
port for multiple inheritance is not in- 
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cluded in the current version, although 
such support is being considered for 
future versions. System requirements 
for ObjectVision are minimal — IBM PC 
or compatible with at least 256K, either 
a VGA or EGA and a mouse. Ob- 
jectVision sells for $399. A demo disk 
is also available at $30. Reader service 
O.24; 

ObjectVision, Inc. 

2124 Kittredge Street, Ste. 118 
Berkeley, CA 94704 

415-540-4889 


To follow-up on last month’s “Of Inter- 
est,” Digitalk was demonstrating the 
recently announced Smalltalk/V PM at 
OOPSLA ’89. Smalltalk /V PM is an 
object-oriented development environ- 
ment for Presentation Manager under 
OS/2 and allows developers to take 
advantage of PM’s capabilities while 
hiding its complexities. The product is 
positioned as a prototyping tool for 
Ul-intensive applications, even though 
it is the first fully compiled Smalltalk 
under OS/2. 

Developers can pass data to and from 
PM tools, as well as applications, 
through Dynamic Link Libraries (DLLs) 
and Dynamic Data Exchange (DDE). 
Digitalk also provides tools to organize 
and browse source code including PM 
code. A source-level debugger provides 
most of the features you’d expect in- 
cluding breakpoints, single-stepping, 
and an object inspector. The object 
inspector additionally allows the pro- 
grammer to change instance variables 
during the debugging session. 

Smalltalk /V PM comes complete 
with 150+ classes and is source code 
compatible with Smalltalk/V 286 and 
Smalltalk / V Mac. The package requires 
OS/2 Presentation Manager 1.1 or later 
and is priced at $499.95. Reader service 
N0.22Z. 

Digitalk, Inc. 

9841 Airport Blvd. 

Los Angeles, CA 90045 
213-645-1082 
800-922-8255 


Stepstone’s new release of their Ob- 
jective-C compiler marks the fourth gen- 
eration of the product, which runs un- 
der DOS. Stepstone also offers versions 
under other platforms including OS/2, 
Sun 3, 4, and Sun 386i under SunOS, 
and the Apollo workstation. 
Objective-C more closely follows the 
message sending paradigm found in 
pure object-oriented languages such as 
Smalltalk than does C++. The strength 
of Objective-C lies in its strong type 
checking. The compiler extends ANSI 
C features such as function prototyp- 
ing with method prototyping and type 





mismatch detection for objects. Debug- 
ging tools include a message trace fa- 
cility that allows the programmer to 
view the message’s receiver, the name 
of the message, arguments to the mes- 
sage, and the sender of the message. 
Another tool, back tracing, allows the 
programmer to back trace through the 
current stack after an exception has 
occurred. Also available from Stepstone 
is an object-oriented user interface 
toolkit, IC¢pak201, for workstations run- 
ning under X-Windows. The toolkit pro- 
vides 58 classes with over 1100 meth- 
ods to support pop-ups, scroll bars, 
dialog boxes, and the like. Other classes 
support the UI by managing the envi- 
ronment, providing controllers, fixtures, 
and other abstract classes. A set of con- 
tainer classes is also included. Reader 
service no. 25; 

Stepstone Corporation 

75 Glen Road 

Sandy Hook, CT 06482 

203-426-1875 


A new book from MIS Press, Object- 
Oriented Environment in C++, by David 
Hu, presents concepts and code to cre- 
ate graphical environments such as 
those found in Smalltalk or MacApp 
using C++. Hu covers Zortech, Guide- 
lines, and Advantage C++ (from Life- 
boat) as well as Stepstone’s Objective- 
C and Smalltalk/V from Digitalk. The 
strengths and weaknesses of the vari- 
ous languages are compared so that 
the reader can make informed deci- 
sions as to which tool is best suited to 
a given project. 

Hu also shows how to create win- 
dows, bit-mapped icons and menus, 
and how to support the mouse using 
Zortech’s C++. In addition, he presents 
schemes for knowledge representation, 
and shows how to create an expert 
system including methods for defining 
forward-and backward-chaining infer- 
ence engines. In a final chapter, the 
author presents object-oriented data- 
base concepts and provides insights 
into the Gemstone Database system 
from Servio Logic. The book is priced 
at 29.95, or with a source code disk at 
$59.95. Reader service no. 24. 
Management Information Source, Inc. 
PAD... BOX 9277 
Portland, OR 97208 
503-282-5215 


Quintus Computer Systems and 
Logic Programming Associates have 
teamed up to announce MacObject, a 
graphical package to generate object 
hierarchies in Prolog++. Prologt++ is 
an extended version of Quintus’s 
MacProlog that supports meta-objects, 

(continued on page 173) 
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How to place your ad in the Programmer’s Marketplace: 
Carefully type your message or send camera-ready art. Each ad is 10 x 13 picas (15/8 x 23/16 inches). All ads must be prepaid. 
We accept checks, money orders, Visa, Mastercard, and American Express. Send your ad to: 
Programmer’s Marketplace, Dr. Dobb’s Journal, 501 Galveston Drive, Redwood City, CA 94063. 
For more information, contact: Glynn Mansfield at (415) 366-3600. 
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TAME YOUR FORTRAN CODE! 


FORWARN - Finds common programming errors: mis- 













WANT TO EXPLORE AN ENTIRELY NEW WAY TO matched argument lists and common blocks, uninitialized 
. ae : . oS COMPUTE? variables, and more. Prints detailed cross-references and 
; es as . : j call-tree diagrams. $329. 
A revolutionary 32-bit implementation of a Forth-83 pe ie cen a ae . 
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SOMIDUEsy CONPIEG WIEN 12. WGN -PESUCIN ITY physical systems, exploring massively parallel compu- (indents, renumbers, changes GOTOs to IF-THEN-ELSEs, 
programming environment « truly compiled code « tation, and experimenting with artificial life is just the etc.) and 6 more tools. $129. 
context-sensitive helo © source-level debuaaer « beginning. CA Lab is your passport to the frontiers of 
ee P 99 computing. Includes a 250-page introduction to cellular For PC/XT/AT or compatibles, 512K. Support for Lahey, 
Stand-alone application generation Used to develop automata by award-winning author Rudy Rucker. Microsoft, and VAX Fortran extensions. Also available for 
| the first commercial PostScript™ clone. $59.95. Unix - call for information and pricing. 
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AUTODESK (800) 525-2763 (217) 356-8876 
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PROGRAMMER'S ‘Sc. & MS. i 
SOFTWARE COPYRIGHT er \PyLO7W heaceleletiiises) & MS 17 COMPUTER SCIENCE 


The American Institute for Computer Sciences offers 
MANUAL Save hundreds of hours and an in depth correspondence program to earn your 
: thousands of dollars when you use the Bachelor of Science and Master of Science degrees 
Complete how-to and reference guide CAD/CAM math and DXF routines in 
to computer software copyright law. 


in Computer Science at home. BSc. subjects covered 
QuickGeometry Library 
Money-back guarantee. Send $19.95 


are: MS/DOS, BASIC, PASCAL, C, Data File 
Processing, Data Structures & Operating systems. 
Write programs to construct, intersect MS program includes subjects in Software 
EK. Kenneth Snyder and offsetlines, arcs, ellipses and even splines. 
Attorney at Law ... Many in 15 tines or less! 
P.O. Box 75153 


Engineering and Artificial Intelligence. 
American Inst. for COMPUTER SCIENCES 
$1 99) includes Csource code, telephone support 
Seattle, WA 98125-0153 SUG cen Somwale Calitoday! 
(206) 781-1409 


1704-DJ 11TH Avenue South 

P.O. Box 1373 Birmingham, AL 35205 
.O. Box 

Somerville, MA02144 (617) 628-5217 














TOLL FREE 1-800-872-AICS 
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Lone Elance eiams EARN Roya.tics Now 
ON THE SHAREWARE YOU'VE DEVELOPED MA K E DOS 


Software Yourself! YOUR SL AVE! 


























Ad space is expensive. Editorial space is free. * On-line distribution in fifty states and twenty countries 
Hundreds of magazine editors could publish a * Royalties paid every time your shareware is downloaded Command ae oe a powerful programming wilh 

| ¢ No cost to you ronment under DOS by providing a state of the art comman 
Press Release about your software. FREE! pnt processor, a block structured batch language with a library | 
Those 300-word New Product Announcements thy of callable routines, and a super fast file viewer. The shell 
that all of the magazines print - they're freebies. # features aliases, history, command editing, keyboard mac- 






ros, screensaver, and autoexecute extensions allin 5K with 
EMM (15K without). Network compatible. Only $129.95. 


(213) 645-3095 


ESP Software Systems, Inc. 
6140 Bristol Parkway * Culver City, CA 90230 


Send for free information. 


oP Dac, ELECTRIC 


ISTRIBUTION INTERNATIONAL 
525 Goodale Hill Road, Ste. 330 DISTRIBUTIO O 


Glastonbury, CT 06033 TO PUT YOUR SHAREWARE ON-LINE CALL 
(203) 659-1 065 1-(800) 776-6076 or (213) 374-3478 


A 
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Macros/ RELATIONAL DAT Y 
Conditional Se nee ae cat EVERTRAK SECURITY SYSTEM 
For Turbo C and Microsoft C on DOS 
Assembly evcioms. The 444 funchons inthe "© wrdw If you HATE Copy Protection, but still want to protect 
y = our programs, EVERTRAK features: 
H I G H S P E E D and “C_ndx" libraries Support: . . eee an ‘COM/EXE w/o Source ehan es 
68000/68010 7 Multiple B-tree index files * Prevent eeccembiy and DEBUG ae 
Cross-ASSEMBLER code onda PC * Stacked, overlapping windows + Embed/display hacker-proof Customer information 
Compatible ¢ dBASE, .DBF, and .NDxX file formats * Restrict use by date-range and /or media-type 
¢ Multilevel file relationships * Track unauthorized copies back to their source 
SOFTWARE CONSTRUCTION 4 MB of * Pull-down and pop-up menus - Totally invisible to End Users 
Compare. Inc; i : aorta * Hashed random files access EVERTRAK is for IBM & Compatibles, sells for $295 
2900B Longmire code a e se sel us ree o | with a 30 day money back guarantee. Free info & demo. 
. per minute ibraries $99.50; Source 50: | Az-Tech Software, Inc. 
College eton . VISA/MC 305 East Franklin 
Texas 77840 §-Records, Marietta System Inc. Richmond, MO 64085 
Binary, or Split P.O. Box 71506 Marietta, GA 30007 (800) 227-0644 (816) 776-2700 
Phone (409) 696-5432 Binary ssste Reacts sen Elaet 
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MARKETPLACE 





How to place your ad in the Programmer’s Marketplace: 
Carefully type your message or send camera-ready art. Each ad is 10 x 13 picas (15/8 x 23/16 inches). All ads must be prepaid. 
We accept checks, money orders, Visa, Mastercard, and American Express. Send your ad to: 
Programmer’s Marketplace, Dr. Dobb's Journal, 501 Galveston Drive, Redwood City, CA 94063. 
For more information, contact: Glynn Mansfield at (415) 366-3600. 







/ 


Lahey FORTRAN for FlexOS 386 


Digital Research’s FlexOS 386 operating 
system features 4 GB memory addressing, 

NIX file structure & DOS compatibility. 
Lahey F77L-386 features ANSI Fortran 
77, pipes, COFF generation, & extensive 
error message reporting. Contact: 


TransWare Enterprises Inc. 

5091 Durango Court 

San Jose, CA 95118 
408) 723-2102 
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'C' PROFESSIONAL SCREEN AND WINDOW 
GENERATOR 
* Full range of attributes and graphics characters 
* Many text editor features 
* Create full screens or define windows 
* Microsoft AND Turbo C compatible libraries link 
to your application to provide FAST screen and window 
handling 
* On-line help 
* Manual provides source code example of calls to many of the 
library functions 
* Free demo disk (specify format) 
IBM and compatibles $79, $99 w/ source code 
Vne Software 
Gaithersburg, MD 20879 





7458 Brenish Dr. (301) 926-7144 
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Find Code & Text Changes 


With speed, accuracy & “intelligence” 
DocuComp® compares two versions of 
source listings or documents and finds 
changes as minor as an inserted comma and 
as major as a complete rearrangement in text! 
Results can be shown on a split-screen, ina 
printed composite draft, or in a detailed report. 
Lists all changes by line number. $149.95 / 
IBM, $159.95 / Mac. 


Advanced Software, Inc. 
1095 E. Duane Ave., Suite 100, Sunnyvale, 
A 94086 


- (800) 346-5392, (408) 733-0745 in CA 














STILL COMPATIBLE 
AFTER ALL THESE 
YEARS! 


ARC is the industry standard archive utility. It's the file storage 
method used by PCTECHline. And PC WEEK called it "A sophis- 
ticated and eminently useful product." 

ARC automatically compresses stored data so it takes up less 
space. And less modem transfer time. From 20% to 90% less, 


depending on the kind of data. 
All program sources are available. 
~—__~ ASSOCIATES ARC 
21 New Street, Wayne, NJ 07470 


S€Q system 
@ So ENHANCEMENT 
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DRUMA FORTH-83 


Break the 64k memory barrier 
Powerful, attractively priced. ‘83 Standard 


¢ 1Mb plus automated memory management 
* On-line documentation, ASCII/block file 


¢ Others: windows, modules, profiler-debugger 
¢ Full OS interface & a lot more 
¢ IBM PC/XT/AT and all compatibles 


Inquire about FREE example diskettes 
Druma Inc. 
6448 Highway 290E, E103, Austin, Texas 78723 
Orders: (512) 323-0403 BBoard: 512-323-2402 
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FORTRAN PROGRAMMER? 


Now you can call 2-D and 3-D graphics 
routines within your FORTRAN program. 


GRAFMATIC: screen routines $135. 
PLOTMATIC: plotter driver $135. 
PRINTMATIC: printer driver $135. 


For the IBM PC, XT, AT & compatibles. We 
support a variety of compilers, graphics bds., 
plotters and printers. 
MICROCOMPATIBLES 
301 Prelude Drive, Silver Spring, MD 20901 USA 
(301) 593-0683 
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EVERLOCK COPY PROTECTION 
Designed for user-transparency, compatibility and 
strength. EVERLOCK features: 

* No need for damaged media or I/O plugs 

* Thwarts all Bit-copy Software 

* Install to Floppy, Hard Disk, or Network 

* Control program use by Date or #Executes 

* Remotely reset Installs, Date or #Executes 

EVERLOCK is for IBM and compatibles, $195 
Starter Kit or $495 with NO meter counts. Free info 
& demo disk. 

Az-Tech Software, Inc. 

305 East Franklin Richmond, MO 64085 

(800) 227-0644 (816) 776-2700 

FAX (816) 776-8398 
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OpT-TECH SORT/MERGE 


Extremely fast Sort/Merge/Select 
utility. Run as an MS-DOS command 
or CALL as a subroutine. Supports 
most languages and filetypes includ- 
ing Btrieve and dBase. Unlimited file 
sizes, multiple keys and much more! 
MS-DOS $149. 


(702) 588-3737 


Opt-Tech Data Processing 
P.O. Box 678 - Zephyr Cove, NV 89448 
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¢ Expert Classroom 
Learn C, Instruction 
C++, 

PANT =T 0) 0) (2) 


oy amit are cen iess 


¢ Introductory and 
Advanced 


¢ Unconditional 
Guarantee 
Call for information: 


Computer Language Arts, Inc. 
704 Haddon Avenue, Collingswood, NJ 08108 


(800) 842-9667 
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STOP SOFTWARE 
PIRACY 


With our Copy Protection Products. They 
really work and don't burden the honest user.. 





For Hardware Based Security (Parallel Port) 
e STANDARD KEY TAG Unlimited Runs 
¢ COUPON KEY TAG Limited Runs 

e DURATION KEY TAG Limited (days) 






For Disk Security 
High Level Security 

e PADLOCK II DISK ¢ COUPON DISKS 

e SAFEGUARD DISKS 


For Hard Disk Protection 
e HDCOPY 

Low Level Security - User Installable Protection 

e PC-PADLOCK 


The market is filled with copy protection pro- 
ducts which burden the user or simply don't 
work. we have over 3500 satisfied software 
firms utilizing our systems. The high-level 
fingerprint has not required an update in over 
3 years. 

Why should your valuable data or useful 
software program become available in the 
Public Domain? 





Call or Write for 
more information. 


GLENCO 
ENGINEERING INC. 


SERVING THE SOFTWARE INDUSTRY SINCE 1979 
721 W. Algonquin Rd. (312) 364-SOFT (7638) 
Arlington Hts., IL 60005 FAX 364-7698 Telex 493-7109 
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Carefully type your message or send cz 


a e your ad in the Pro 


ra-ready art. Each ad is 


We accept checks, money orders, Visa, Mastercar 


_ Programmer’s Marketpl. 
For more 


Install your DOS Software Anywhere 
as if you were there yourself, adapting to hardware, 
software, environment and installer wishes 
with Installation Toolkit Version 3.0 


You get both an installation program and a complete 
development environment for a powerful overlay script system. 
You just “fill in the blanks” to create multiple options in minutes, 
intelligently controlling AUTOEXEC, CONFIG, etc. Do new 
installation, updates, modifications and much more. 250-page 
| User's Guide dedicates 45 pages to automatic handling of 
special and abnormal situations, Executables $49, with C or 

_| Turbo Pascal 5.0 Source $139. No copy protection or 

| installation royalties, full 30-day money back guarantee. 


| To order, call 800-448-4154. Visa, MasterCard, or via mail 


Helpful Programs, Inc. 


Central Bank Building, Suite 912 
P.O, Box 16078, Huntsville, Alabama 35802-1627 
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BASIC to C 
BAS _C v3.2 accepts BASICA, Quick BASIC v3, 
CBASIC86, or other different BASICs by adding 
new statements, functions (Customizer), generates 
structured, indented, scoped C, MS/Turbo/Lattice/ 
Aztec C. All memory model, compile option are 
supported. C source code (Runtime Library) is 
included. Run on MSDOS, XENIX, UNIX. 95% 
conversion ratio. Demo disk. From $199. 


GOTOLESS CONVERSIONS 
P.O. Box 835910 
Richardson, TX 75083 
(214) 404-1494 





FORM FILL-R 
Define forms using the built-in FORM EDIT R 
(or your own text editor). Use FORM FILL-R 
to fill in forms and print them. Send printout to 


1 a disk file and use as input to your program. 


Or use the output of your program as input to 
FORM FILL-R to make your program print on 
any form. Requires PC (or Compatible) or Z- 
100 computer. $49.95 postpaid. Call/Write 


| for catalog. 


LINDLEY SYSTEMS 4257 Berwick Place, 
Woodbridge, VA 22192 (703) 590-8890 
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FIX 
HUGE 
DATA FILES! 


"Data File Doctor" allows view/edit/cut-n-paste/search of any 
DOS based data file (dBase, PCF, C, Pascal, Basic, etc.). Files 
up to 2.5 GIGABYTES Okay. Regardless of file size, guaranteed 
seek times end-to-end of less than 2 seconds (even across 
LANs!) Search criteria includes text, ASCII, Case sensitive and 
ASCII range. Less than 1K incidental disk space required no 
matter what data file size. 100+ page manual. 

Cheap site licenses! (Patch EXE & COM files, too!) $99.95 


MICROBRIDGE 1-415-593-8777 (in Canada 1-514-845-0818) | 
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Bedit: display and edit Btrieve 
files. Build test files. Export SDF 
to dBASE & Lotus. 


SE-10] 0) ole) a 
for 
Btrieve 


Bbug: Pop-up TSR Btrieve ap- 
plication debugger. Language 
independent. 


Brun: BUTIL replacement with 
run-time license and C source 
code. 


Bedit & Bbug: $120 Brun: $100 
VISA, MC, COD, or check. 


Information Architects 


(517) 337-0714 FAX: (517) 351-7912 
P.O. Box 4184, East Lansing, MI 48826 
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Save hours of debugging and documentation! 
Document the internal structure of 'C' programs. 
*C-CALL ($59) gives XREF or graphic-trees of all the 
system/module caller/called structures. 

*C-REF ($49) gives variable/constant XREFs. (incl. 
global vs local) at system or module level. 

*CHDR ($59) inserts/updates module headers 
showing caller/called and local/global/params. 
*C-LIST ($39) lists and/or action-diagrams, also 
reformats (incl. comment re-alignment). 
*SPECIAL!! All 4 for $149 (Visa/MC accepted) 
30-day money back guarantee of satisfaction 


SOFTWARE BLACKSMITHS INC 


6064 St. Ives Way 
Mississauga, ONT, Canada. L5N 4M1 


416) 858-4466 








GRAPHIC TOOLS LIBRARY 


XGLIB: Fast. Window/vp, thick lines and arcs, 
splines, figure drawing, fill, text scale, rotate, align, 
keyb, mouse, Animation. One touch Screen and 
Image file print. $99. 


: Image Capture and retrieval from 
resident (TSR) and from your program. Multiple 
image (.PCX, .KPS, .KPC) file formats. EMS 
support. Fast ese Graphics. Cut, Copy, Paste 
and more. Auto scale, Rotate, Skew, Mirror, Fold 
and Tile fill image. Image data base. Text and 
Line drawing. Virtual Bitmaps. Non-rectangular 
cut and stencil with PC_VDI. Print/plot. A better 

ackage for .PCX file handling. Compare Quality. 
49. 


; Virtual Device Interface. Draw on 
screen or printer/plotter at device resolution. 


Outline fillable font factory. Super text. Rotate, 
Zoom. Plots, charts and splines. All GKS draw. 
Includes XGLIB. Compare Quality. Cut program- 
ming time with good results. $395. 

ALL ANSI compatible. A must for every graphics 
developer. All graphic modes: Hercu. to Super 
VGA. Ask us the devices we don't support. Most 
"C", FORTRAN, MS QuickBASIC. 


NOVA INC. 
P.O. BOX 68976 
Schaumburg, IL 60168 


708-882-4111 





The SPINDRIFT 


At Last!! Now there's a way for the FORTRAN programmers to do the things ; 
they have always wanted to do: Execute other programs via CALL EXEC; | 


| direct control of the cursor with edit keys, WINDOWS on the screen for POP | 


UP HELPs; (*) and (?) wildcard file searches; save/restore screen images; | 
COLOR screens. 


These are just a few of the features of the SPINDRIFT Library. Over 150 | 
subroutines and functions in all, the SPINDRIFT Library includes DOS 


___| Interface (COPY, ERASE, MKDIR, FINDFILE, SYSTEM, etc), Variable 
| Length Strings, Security Routines, Date/Time Routines. 10 SORT Routines, 
| and much more! 


Price $149 plus shipping/handling 
Write for a DEMO DISK $5.00 credited toward purchase. 
Specify your FORTRAN Compiler 


Spindrift Laboratories, Ltd. 
116 South Harvard Avenue 
Arlington Heights, Illinois 60005 

(312) 255-6909 





Why you want BATCOM! 
BATCOM is a batch file compiler that compiles | 
your ".bat’ files to ".exe" files to make them faster, | 
more professional, and more capable. BATCOM | 
extends DOS with new commands so you can 
read keyboard input, perform arithmetic, use sub- 
routines, and much more. In addition, BATCOM 
protects your source code, and you can distribute 
your compiled programs without royalties. For 
IBM PC. Only $59.95. Order today! 


7 N, Wenham Software Company 
tT e | 5 Burley St. 
\_ @ Wenham, Ma. 01984 


(508) 774-7036 





NETWORK CONTROL LIBRARIES 


NETWORK INTERFACE allows file sharing and 
redirection through DOS functions. $99. 
NETBIOS ROUTINES allows access to low-level 
network functions. Name, session & datagram 
routines. Wait and no-wait options. $199. 
NETWORK MASTER provides access to Netware 


internal functions. $299. Complete network control 
from your compiled programs! 


Starlight Software 
P.O. Box 1090 
Wheeling, IL 60090 
(708) 394-0622 
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OS/2 & DOS PROGRAM | 
EDITOR WITH SOURCE 


TechEdit Features: 95% MS C & 5% 
MASM 5.1, virtual mem., key redefine, | 
multi screen/window, undo, macros, file | 
pick lists, reg. exp., search & replace, 
auto indent, etc., FAST! 


ONLY 49.95! Demo disk $10 


Send check or money order to: 
Superior Soft 
P.O. Box 11385 
Torrance, CA 90510 
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Professional 
Shareware Libraries 


HUG 


Comprehensive, indexed collections of all known 
Public Domain/Shareware utilities for professional 
developers. Disks/Files_ Price 
dBase & dBase Compilers 42+/900+ $99.50 
Cc 12+/300+ $49.50 
15+/200+ $49.50 
12+/150+ $49.50 
14+/250+ $49.50 
EMS, 4505 Buckhurst Ct. 
Olney, MD 20832 USA 
(301) 924-3594 Fax: (301) 963-2708 


Turbo Pascal 
Ventura DTP 
Lotus 123 
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Find "Hands-on" Reviews in 
Seconds! 


PC Reviews is an easy to use on-line database for 
Programmers & PC Managers who need to locate and 
read "hands-on"reviews. DDJ, Byte, Data Based Advi- 
sor, PC Today, PC Magazine, Info World and more. 
Natural language front-end helps define search terms. 
A perfect use for a modem. "Very efficient", say users. 


Compatible Technologies Group, Inc. 


88 Fulton St. #2400, New York, NY 10038 
(212) 463-8989 (201) 653-7688 8-N-1 for FREE DEMO 
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Network API Library 


For Microsoft and Borland C or Pascal. 
Compatible with IBM, 3Com, Banyan, and 
Novell networks. Includes DOS and 
NetBIOS network functions. Netware 
API’s for login, mapping, print queues, 
IPX/SPX, etc. New! Portable IPC, RPC, 
and remote window routines. $99.95 
Information Software Associates 
P.O. Box 2582, Iowa City, IA 52244 
Call for more info (319) 354-6804 
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Turbo Pascal Developers Wanted! 


Finalsoft Corporation is seeking 50 beta-testers for its 
new software products: 


Finalsoft SQL, a database development system featur- 
us) complete relational database management, ANSI 
SQL level 1, SQL preprocessors, utilities, and more. 


Finalsoft Development library, routines to enhance 
applications with pull-down, pop-up, and bar menus; 
overlapping windows; TSR modules; keyboard, mouse, 
video, printer control; and more. 


Both packages retail for $249. Beta-testers will receive 
the complete gee ee plus free upgrades to final 
version, for $50. To register as a Beta-tester, contact: 


Finalsoft Corp. Beta-Test Group 
3900 NW 79th Ave., Suite 215, Miami, FL 33166 


(305) 477-2703 
CIRCLE NO. 388 ON READER SERVICE CARD 








Finally! 


An Operating System which brings Real-Time 
response, multi-Tasking operation, Multi-User 
support, and Presentation Management to the DOS 
operating environment! 





Introducing... 


T/L Executive ™ 


The ideal software solution for programmers 
developing real-time, multi-tasking, DOS 
compatible application programs or enhancing 
existing DOS application programs. 


Features: 


Real-Time Kernel, Preemptive Task 
Scheduler; 

Fast, up to 12,820 task switches/sec (16Mz 
AT); 

Multi-Tasking, up to 255 prioritized tasks; 
Full DOS Compatibility; 

Runs on any PC-XT, AT, PS/2, or 
compatible; 

Efficient, requires only 40KB of RAM; 
Complete Intertask Communication 
capabilities; 

User Configurable Operating Parameters; 
Presentation Management Menus and 
Windows; 

Multi-User Support for up to 35 system 
users; 

Execute tasks in up to 8 MB of EMS RAM; 
NETBIOS compatible Networking 
capabilites; 

User Programmable Function Call Security; 





For more information about T/L Executive, please 
call or write: 


9550 Ridgehaven Court 
San Diego, CA. 92123 
(619) 565-6656 








TAB DIVIDERS FOR 
TECHNICAL DOCUMENTATION 


Give your software manuals a more 
professional look with custom indexing 
from Avery Specialty Products. 
Custom tab dividers make instruction 
manuals as concise, organized and 
individual as the information within. 


For more information 


Call 312-253-1010 x504 
SPECIALTY PRODUCTS 
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1601 Rohiwing Rd. 
Rolling Meadows, IL 60008 
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(continued from page 169) 

super- and sub-objects (both static and 
dynamic). Prolog++ also supports 
daemons, inheritance, message pass- 
ing, broadcasting, methods, and func- 
tions. In conjunction with MacObject 
is the announcement of version 3.0 of 
the MacProlog compiler. MacProlog pro- 
vides a complete development envi- 
ronment that includes incremental com- 
pilation, multiple scrolling windows, 
hierarchical menus, and pop-ups, com- 
piled graphics windows and pictures, 
a program optimization, access to Quick- 
Draw, and interfaces to C and Pascal 
code. MacProlog 3.0 sells for $595. Mac- 
Object, which includes the Prolog++ 
compiler, is priced at $495. Reader ser- 
vice no. 25. 

Logic Programming Associates Ltd. 
Studio 4, RVPB, Trinity Road 

London, SW18 3SX 

441-871-2016 

Quintus Computer Systems 

1310 Villa Street 

Mountain View, CA 94041 
415-965-7700 


Franz Inc. recently announced Alle- 
gro CLiP; a Common Lisp designed for 
parallel environments. Allegro CLIiP, 
which is modeled after SPUR Lisp, pro- 
vides a set of low-level, parallel-pro- 
gramming primitives, while providing 
high-level constructs from MultiLisp and 
QLisp. Access to the Sequent Parallel 
Programming Library is also provided 
through a set of interface functions. 
Allegro CLiP provides a complete inte- 
grated development environment that 
features debugging facilities, an instru- 
mentation style interface, and the mul- 
tiple entry-levels mentioned above. 
Reader service no. 20. 
Franz, Inc. 
1995 University Avenue 
Berkeley, CA 94704 
415-548-8253 


Addison-Wesley has published The 


Renderman Companion, A Program- 
mer’s Guide to Realistic Computer Graph- 
ics by Steve Upstill of Pixar (Steve wrote 


| the article “Photorealism in Computer 


Graphics,” DD] November 1988, on the 
Renderman Shading Language). The 
book is a tutorial based on Pixar’s Ren- 
derman Interface for 3-D scene descrip- 
tion, which can produce computer graph- 
ics that are indistinguishable from ac- 
tual photographs. Steve said he wrote 
The Renderman Companion “to demon- 
strate that any programmer with some 
3-D computer graphics experience can 
produce stunning pictures with the use 
of our Renderman Interface.” 

Some of the topics covered in the 
book are quadric surfaces, polygons, 


173 





OF |NTERES$ 7 





parametric surfaces, hierarchical mod- 
eling, the digital camera, lighting and 
shading, surface mapping, and the Ren- 
derman Shading Language. The paper- 
back sells for $26.95, ISBN 0-201-50868- 
0. Reader service no. 27. 
Addison-Wesley Publishing Company 
Reading, MA 01867 

617-944-3700 


Blaise Computing Inc. has announced 
C TOOLS PLUS/6.0, the latest version 
of Blaise’s library products for Micro- 
soft C. This library of compiled C func- 
tions supposedly gives programmers 
advanced routines for developing high- 
powered C applications, and includes 
virtual, stackable menus and windows 
with full mouse support and optional 
“drop shadows.” It also has multiple 
virtual pop-up help screens; a mini- 
ature multiline editor for gathering user 
responses; a single function call that 
can move, resize, and promote a win- 
dow or menu on top of all others; the 
ability to update covered windows auto- 
matically when they are written to; sup- 
port for EGA, VGA. and MCGA text 
modes including 30-, 43-, and 50-line 
modes; and support for the enhanced 
(101/102 key) keyboard. 

The library comes with adaptable 
source code for study or emulation. 
Blaise claims that their attention to de- 
tail, like the use of function prototyp- 
ing and the const modifier, the pre- 
built libraries for the four standard mem- 
ory models, the organized header files, 


| and an indexed manual makes C TOOLS 


PLUS/6.0 appropriate for both experi- 
enced software developers and new- 
comers to C. 

The library also supports mouse de- 
tection, cursor control, and button 
presses and releases, with mouse sup- 
port integrated into the windows and 
menus. Functions written in C can be 
installed to be called whenever certain 
classes of mouse events Occur; even 
DOS functions can be accessed in re- 
sponse to mouse events. 

Fully documented source code is in- 
cluded with the product, and the man- 
ual gives a general overview for every 
function category and descriptions of 
each function. C TOOLS PLUS/6.0 can 
be used for product development with- 
out obligation to Blaise Computing. It 
requires the Microsoft C 5.0 or later or 
QuickC, DOS 2.0 or later, and an IBM 
or compatible. The mouse functions 
require a Microsoft-compatible mouse 
and its driver software. The product 
sells for $149. Reader service no. 29. 
Blaise Computing 
2560 Ninth Street, Suite 316 
Berkeley, CA 94710 
415-540-5441 


Zortech Inc. recently announced ver- 
sion 2.0 of its C++ compiler for MS- 
DOS. C++ V2.0 Developer’s Edition is 
fully compatible with the AT&T 2.0 speci- 
fication, which includes support for mul- 
tiple inheritance. Other features include 
type safe linkage and built-in support 


for EMS. Version 2.0 also has been 
enhanced for portability to other C en- 
vironments including Microsoft C. 

In addition, the Developer’s Edition 
includes a C++ source level debugger, 
the source code to its run-time library, 
and Version 2.0 of Zortech’s C++ tools. 
Each of these components may be pur- 
chased separately as well. The overall 
system features compatibility with Mi- 
crosoft Windows, a set of graphics 
classes, and a TSR library that can make 
many applications resident through a 
simple function call. 

According to Scott Ladd, official beta 
tester, “its virtually 100 percent com- 
patible with AT&T 2.0, also supports 
Windows programming in OS/2 as well 
as MS-DOS — an impressive product.” 

Zortech has also announced the re- 
lease of its OS/2 compiler upgrade, 
priced at $149. The Zortech C++ Devel- 
oper’s Edition sells for $450, or the 
compiler can be purchased separately 
for $199. Other components of the De- 
veloper’s Edition may also be purchased 
separately, including the new debug- 
ger, the run-time library source code, 
and Version 2.0 of C++ Tools at $149 
each. Updates to existing users start at 
$40. Reader service no. 30. 

Zortech, Inc. 

1165 Massachusetts Avenue 
Arlington, MA 02174 
617-646-6703 
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Hardware Based Copy Protection 


Disk Based 


Secure software and 
data with reliable, 


Copy Protection 


Prevent unauthorized 
duplication of software 
using GLENCO’s magnetic 
finger-printed disks. Hard 
disk install/uninstall 
feature available. 


@® PADLOCK II DISKS 
Permits unlimited use of 
protected software. 


® COUPON DISKS 

Ideal for issuing software tests 
or DEMO’s of a fully working 
program. 


@ SAFEGUARD DISKS 
Perfect for universities or 
institutions. No source code is 
ior claba to fully protect 
software from piracy. 


@ STANDARD KEY TAG 
Software is protected for an unlimited 
number of executions. 


@® COUPON KEY TAG 
Software is valid for a preset number 
of executions. 


@ READ/WRITE KEY TAG 
Programmer has access to read and 
write 16 bytes. 

@ DURATION KEY TAG 


Software is valid for a preset number 
of days. 


A unique approach to 
copy protection without 
requiring special media. 


effective protection 
products that won’t 
burden honest users. 


Glenco is a world leader in 
the area of software security 
products and services. Our 
copy protection and data 
security products are second 
to none. They are designed 
to function properly ona 
wide variety of third party 
hardware systems. We have 
over 3500 satisfied software 
firms utilizing our systems. 


Systems for... 


IBM - MS-DOS / XENIX 
Apple - Macintosh 


Call or write for more 
information. 


International 
nee dealers welcome. 


E Pl CIATION GLENCO | 
ESTIMATES ONE BILLION DOLLARLOSS__ nn 
_ ANNUALLY DUE TO SOFTWARE PIRACY. EN GINEERING ANC. 


721 W. Algonquin Road 
Arlington Hts., IL 60005 
(312) 364-SOFT (7638) 
FAX 364-7698 

Telex 493-7109 
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When we started Programmer’s Connection in 1984, 


dedicated ourselves to providing the highest level of 
quality service possible. As a result, we’ve become the 
world’s leading independent dealer of software tools for 
IBM personal computers. We invite you to call us today 


and experience our quality and integrity for yourself. 


NO EXTRA CHARGES. UPS Ground shipping to the lower 
48 states is FREE (express services are also available at low 
economical prices). We don’t charge extra for credit cards, 
POs, CODs, sales tax (except Ohio), or rush orders. Com- 
pare that to other dealers who routinely add sizable extra 


charges to what they claim are "low competitive prices". 


NO HIDDEN CHARGES... 


we INFORMATIVE BUYER’S GUIDE. The CONNECTION, 


our FREE comprehensive Buyer’s Guide and Catalog, con- 
tains prices and up-to-date descriptions of over 1000 
products by more than 400 manufacturers. Each description 
includes major product features, special requirements, ver- 


sion numbers, diskette sizes, return policies, and other 
information. Plus there are interesting articles by leaders in 


telephone numbers. 
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Heap Expander by The Too! Makers ........0..cccccceee 80 «= 72 /*resident_C*/ with Source Code ...........:ccccee 198 158 


INSTALLATION TOOLKIT by Helpfi/ Programs..New 99 89 


PC Lint by Gimpel Software oo... cccccccccccceceeceeeeseees 139 =©95 text editors 
Sherlock Debugger for C by Edward K. Ream............ 105: 174 Brief from Solution SyStOMS .......:cccccceee eerie 199 SAVE 
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PROGRAMMER’S CONNECTION 


Order Processing Department @ 7249 Whipple Avenue NW e North Canton, Ohio 44720 e USA 


FREE SHIPPING. Orders within the USA (lower 48 NO SALES TAX. Orders outside of Ohio are not 
States only) are shipped FREE via UPS Ground. Call charged sales tax. Ohio customers please add 5% 
for APO, FPO, PAL, and express shipping rates. Ohio tax or provide proof of tax-exemption. 

NO CREDIT CARD CHARGE. VISA, MasterCard and 30-DAY RETURN POLICY. Most of our products 
Discover Card are accepted at no extra cost. Your come with a 30-day documentation evaluation 
card is charged when your order is shipped. Mail period or a 30-day return privilege. Note that some 
orders please include expiration date and authorized manufacturers restrict us from offering return 
signature. privileges on their products. Please consult our 

NO COD OR PO FEE. CODs and Purchase Orders Buyer's Guide or call for more information. 
are accepted at no extra cost. No personal checks SOUND ADVICE. Our knowledgeable technical 
are accepted on COD orders. POs with net 30-day staff can answer technical questions, assist in com- 
terms (with initial minimum order of $100) are avail- paring products and send you detailed product in- 
able to qualified US accounts only. formation tailored to your needs. 


INTERNATIONAL ORDERS. Shipping & Handling 
charges for International and Canadian orders are 
based on product weight. Rates are published in 
our Buyer’s Guide (if you don’t have a copy, call cr 
write for the exact cost). All payments must be 
made with US funds drawn on a US bank. Please 
include your telephone number and FAX number (if 
any). Due to manufacturer and/or government 
restrictions, we Cannot ship to some countries. 
MAIL ORDERS. Please include your telephone 
number and complete street address on all orders. 
Specify computer, operating system, diskette size, 
and applicable compiler or hardware interface(s). 
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USA ..... 800-336-1166 


the programming industry, New Product Spotlights, Tech- 
nical Questions & Answers, and much more. 
To Get Your FREE Copy: |)use the reader service card 
provided by this journal; 2)mail us a card or letter with your 
name and address; or 3)use one of our convenient toll-free 
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SWAINE S FLAMES 


It Takes More Than A Winning Smile 


aradigm: That collection of model problems, techniques, and specialized knowledge that 
Pp makes a specialist generally worthless. 

Iam a writer of prose, and when I venture outside the paradigm, I do so at peril. Your peril, 
usually, but I did warn you. I’d like to talk about marketing: The marketing of software innovation 
and the subversion of marketing by software innovation. 


First, Get a Million Dollars 

How does a capable programmer with a good product idea become a successful entrepreneur with 
a hot product? The standard truism, that you’ve got to have money to make money, is no help and 
is disproved by the PC software industry as a whole. It had nothing but ideas a decade ago, and 
now it’s a billion-dollar industry. Obviously, there’s a cold start technique. What is it? I’ve sniffed 
at the roots of the major personal computer software companies without unearthing any rare truffles 
of wisdom. Maybe you’ve got to know about business to learn about business. But here are two 
homely “morels” I did dig up: 

There appear to be two normal sources of development funding for those without private 
fortunes or rich friends: Your current clients (or employer) and your future customers. You can sell 
part of your enterprise, once you have one, to investors or venture capitalists, but in the initial 
phase, you don’t have anything to sell but what’s in your head. Venture capitalists don’t want that, 
and any private investors willing to take a chance on you are probably rich friends, clients, or 
employers. 

In the client-funded paradigm, you develop the components or early prototypes of your product 
on contract to companies with big budgets, taking care to retain all important rights to your work. 
(In the risky employer-funded variation, you do product development on the job and hope you can 
take it away with you without losing the product or your self respect or a lawsuit. It’s been known 
to work.) Client-funded development is probably the only way to make money in the stackware 
market today. And it’s the paradigm followed by Microsoft, which got its start in Bill Gates’s tireless 
refining of Microsoft Basic under contract to MITS, Tandy, and others. 

The most gutsy way to get funding is from future customers. This is how the personal computer 
hardware industry was launched: Gullible electronic hobbyists sent checks to post office boxes, 
and when there were enough checks, the products got built. Legally, this technique gives you only 
a three-month window, but a three-month interest-free loan is nothing to sneeze at. Many software 
companies followed this mail order paradigm, some with more scrupulous honesty than suggested 
by this scenario, some with less. The most successful company to start out by mail orders is Borland 
International, which made the transition to shelf space competitor with remarkable adroitness. 





Agents are Subversive 

One of the promises of object-oriented programming is that you will be able to build software from 
reusable components: Brad Cox calls this “the software IC model.” But when it comes to finding 
the components, the software IC model doesn’t fit. Supplier catalogs are too narrow a channel. 
They work for real ICs, because manufacturing costs already narrow the channel drastically, but 
will be a problem for software components, for which there are likely to be as many suppliers as 
customers. Some OOP supporters see agents as the answer. 

An agent is a program that searches for information based on criteria you supply. An agent might 
scan electronic news services to put together a custom newspaper for you — reflecting your 
interests. Or it might find reusable software components. The search space could be a single 
software library or all the sources for which you have e-mail addresses. Where the product sought 
is information, agents could be essential in getting the product into the hands of the person who 
needs it. And they could subvert the economy wherever they are effectively used. 

Usually, it is the vendor who takes responsibility for making the connection with the customer. 

I can think of only two reasons why it would be appropriate for the vendor to take responsibility 
for making the connection: 1. It is easier for the vendor than for the customer; or 2. The vendor has 
more to gain from the transaction. For the vast majority of goods, 1. can’t be true: There are just a 
lot more customers than vendors. I think that 2. is usually the deciding factor: Most sales are driven 
by the vendor’s needs rather than the customer’s. 

Imagine a market managed by customers and driven by their needs. Imagine a market in which 
there were no marketing costs to the vendor because there was no marketing. If you wanted a tool 
to help you do your job, you would sketch a description of its desired properties and dispatch 
your agent to search for one. If you built a truly better mousetrap, the world really would beat a 
path to your door. 

Could we actually replace marketing by technology in this way? A lot of people seem ready to 
try it in the area of reusable software components. If it works there, the model might spread to other 
markets. Of course, one can think of many products and services for which it obviously wouldn’t 
work. And we know that all those products and services serve real needs. Right? 


Michael Swaine 
editor-at-large 
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/ _ CANTESTITSELE 


our customers expect software that works. 
All the time. The key to software quality is 
exhaustive testing. It’s also an engineer’s 
worst nightmare. But it doesn’t have to be. 
Because now you can automate your soft- 
ware testing. 

Introducing the Atron Evaluator. The first and 
only non-intrusive automated PC-based software 
testing tool. 

The Atron Evaluator automatically runs your soft- 
ware regression testing programs. All of them. All 
day. All night. Giving you thoroughly tested, higher 
quality software. 

The Atron Evaluator is hardware-based. And since 
it’s non-intrusive, software behavior is tested with- 
out the risk of alteration. Once your tests have run, 
you can refer to automatically generated test reports 
to double-check test results. 

The Atron Evaluator saves time. And time makes 
you money. Development cycles are shortened, so 
your software gets to market sooner. And while your 
test programs are running, you can be more produc- 
tive. Start a new project. Or go home. 

For more information about the Atron Evaluator, 
call us at 1-800-283-5933. And put an end to your 
worst nightmares. Automatically. 


In Europe, contact: 
Elverex Limited, Enterprise House 

A Division of CADRE Technologies Plassey Technology Park, Limerick, Ireland 
Phone: 061-338177 


Saratoga Office Center QA Training Limited, Cecily Hill Castle 
12950 Saratoga Avenue Cirencester, Gloucestershire, GL7 2EF, England 
Saratoga, California 95070 Phone: (0285) 5888 
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BORLAND INTRODUCES TURBO PASCAL5.5 WITH OBJECTS 





Turbo Pascal,® the world-standard Pascal compiler, 
adds Object-Oriented Programming with our new 
version 5.5. We combined the simplicity of Apple's 
Object Pascal language with the power and efficiency 
of C++ to create Turbo Pascal 5.5, the object-oriented 
programming language for the rest of us. 


It’s easy to extend yourself 


If you’re already programming with Turbo Pascal, 
it’s easy to extend yourself from struc- 
tured programming to object-oriented 
programming. And, Turbo Pascal 9.5 is 
the only compiler that 1s 100% source- 
code compatible with 
your existing Turbo 
Pascal 4.0 and 5.0 
programs. 


A fast object lesson 


Object-oriented appli- 
cation programs more 
closely model the way 
you think. Objects con- 
tain both data and code. 
As in a spreadsheet cell, the value and the formula 
are together. Objects can inherit properties from other 
objects. For example, a Porsche Carrera inherits most 


Turbo Pascal 5.5 Features 

= New integrated environment 
tutorial 

m Hypertext Help with copy and 


m@ Inheritance 
m Static & dynamic objects 
m@ Constructors & - 


Destructors paste 


m Enhanced smart linker & 
overlay manager 

= Support for 8087/80287/80387 

m Integrated source-level 
debugging 


@ (Object constants 
m Compiles @ > 34,000 
lines/minute 





Code: MA40 










Inheritance provides powerful modeling capabilities by allowing objects 
to inherit attributes from other objects. 


attributes from the base model 911, but it also sports 
a whale tail. 

Turbo Pascal 5.5’s object-oriented extensions 
give you code that’s easier to change, extend, and 
Support. 


Turbo Pascal 5.5 Professional with 
Turbo Debugger® and Turbo Assembler® 


The award-winning Turbo Debugger now includes an 
object inspector and hierarchy browser. 
And Turbo Debugger can debug any 
size program. 


Upgrade objectively 


Pascal owners: 
Upgrading from Turbo 
Pascal 5.0 to 5.5 is only 
$34.95 plus $5 shipping 
and handling ($75 plus 
shipping and handling 
~ for owners of Turbo 
Pascal 4.0 or earlier). 
And upgrading from 
Turbo Pascal 5.0 and 
earlier to Turbo Pascal 5.5 Professional is only 
$99.95 plus $10 shipping and handling. To order, 
CALL (800) 331-0877. 





Mail upgrade orders to: Borland, P.O. Box 660001, Scotts Valley, CA 95066-0001. For orders outside the U.S., call (408) 438-5300. 
Turbo Pascal, Turbo Debugger, and Turbo Assembler are registered trademarks of Borland International. Copyright ©1989, Borland International, Inc. All right reserved. BI 1324 
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